home *** CD-ROM | disk | FTP | other *** search
/ Gekkan Dennou Club 147 / Gekkan Dennou Club - 2000.8 Vol. 147 (Japan).7z / Gekkan Dennou Club - 2000.8 Vol. 147 (Japan) (Track 1).bin / games / yasai / reiqa / yasai.riq < prev   
Text File  |  2000-07-03  |  333KB  |  14,913 lines
  1. //-------------------------------------------------------------------
  2. //  SEED #0 something left behind            version 1.01
  3. //  1997.8～2000.6
  4. //                            YASAI.RIQ
  5. //-------------------------------------------------------------------
  6. [START]
  7. //-------------------------------------------------------------------
  8. //進行フラグ
  9.     &def Ａ=0
  10.     &def Ｂ=0
  11.     &def Ｄ=0
  12.     &def 蛙=0
  13.     &def 暖炉=0
  14.     &def 歯車=0
  15.     &def 呪文=0
  16.     &def 墓=0
  17.     &def 船=0
  18.     &def 星雲=0
  19.     &def ネビュラ=0
  20.     &def クミン=0
  21.     &def 水晶=0
  22.     &def ビン=0
  23.     &def 指輪=0
  24.     &def 鉄鍋=0
  25.     &def 洗濯=0
  26.     &def オルゴール=0
  27.     &def クイズ=1
  28.     &def 図鑑完成=0
  29.     &def ページ=1
  30.     &def ページ２
  31.     &def 盗賊逃=0
  32.     &def 忍者=0
  33.     &def Ｂ４=0
  34.     &def レバー=1
  35.     &def 石の剣交換=0
  36.     &def 会話ラ=0
  37.     &def 会話セ=0
  38.     &def 会話メ=0
  39.     &def 会話盗=0
  40.     &def 像１=0
  41.     &def 像２=0
  42.     &def 像３=0
  43.     &def 像４=0
  44.     &def う=0
  45.     &def ひ=0
  46.     &def き=0
  47.     &def く=0
  48.     &def ぶ=1
  49.     &def 月=0
  50.     &def 星=0
  51.     &def 夢=0
  52.     &def 勇気=0
  53.     &def 虹=0
  54.     &def 孔雀=0
  55.     &def 緑=0
  56.     &def 宝=0
  57.     &def 鍵
  58.     &def 宝敵
  59.     &def 敵数
  60.     &def 宝箱フラグ
  61.     &def 宝石
  62.     &def 値段
  63.     &def レベル
  64. //座標
  65.     &def X
  66.     &def Y
  67. //列び順
  68.     &def A=1
  69.     &def B=4
  70.     &def C=5
  71.     &def D=6
  72. //宝箱
  73.     &def 宝01=0    //研究所
  74.     &def 宝02=0    //城
  75.     &def 宝03=0
  76.     &def 宝04=0
  77.     &def 宝05=0    //町
  78.     &def 宝06=0    //村
  79.     &def 宝07=0    //洞窟１
  80.     &def 宝08=0
  81.     &def 宝09=0
  82.     &def 宝10=0
  83.     &def 宝11=0
  84.     &def 宝12=0    //洞窟２
  85.     &def 宝13=0
  86.     &def 宝14=0    //風車
  87.     &def 宝15=0    //Ｂ
  88.     &def 宝16=0
  89.     &def 宝17=0    //滝
  90.     &def 宝18=0    //入口
  91.     &def 宝19=0    //遺跡１Ｆ
  92.     &def 宝20=0
  93.     &def 宝21=0
  94.     &def 宝22=0
  95.     &def 宝23=0
  96.     &def 宝24=0
  97.     &def 宝25=0
  98.     &def 宝26=0    //遺跡２Ｆ
  99.     &def 宝27=0
  100.     &def 宝28=0
  101.     &def 宝29=0    //遺跡３Ｆ
  102.     &def 宝30=0    //城ダ
  103.     &def 宝31=0
  104.     &def 宝32=0
  105.     &def 宝33=0
  106.     &def 宝34=0
  107.     &def 宝35=0
  108.     &def 宝36=0    //滝ダ
  109.     &def 宝37=0
  110.     &def 宝38=0
  111.     &def 宝39=0
  112.     &def 宝40=0
  113.     &def 宝41=0
  114.     &def 宝42=0
  115.     &def 宝43=0
  116.     &def 宝44=0
  117.     &def 宝45=0
  118.     &def 宝46=0
  119.     &def 宝47=0
  120.     &def 宝48=0
  121.     &def 宝49=0
  122.     &def 宝50=0    //ジラーフ
  123.     &def 宝51=0
  124.     &def 宝52=0
  125.     &def 宝53=0
  126.     &def 宝54=0
  127.     &def 宝55=0
  128.     &def 宝56=0
  129.     &def 宝57=0
  130.     &def 宝58=0
  131.     &def 宝59=0
  132.     &def 宝60=0    //灯台
  133. //鍵玉
  134.     &def 青01=0    //入口右
  135.     &def 赤01=0    //入口左
  136.     &def 赤B1=0    //通路
  137.     &def 青11=0    //遺跡１Ｆ
  138.     &def 青12=0    //遺跡１Ｆ
  139.     &def 青13=0    //遺跡１Ｆ
  140.     &def 赤11=0    //遺跡１Ｆ
  141.     &def 青14=0    //遺跡１Ｆto２Ｆ
  142.     &def 赤12=0    //遺跡１Ｆto２Ｆ
  143.     &def 青21=1    //遺跡２Ｆ
  144.     &def 青22=0    //遺跡２Ｆ
  145.     &def 青23=0    //遺跡２Ｆ
  146.     &def 青24=0    //遺跡２Ｆto３Ｆ
  147.     &def 青25=0    //遺跡２Ｆto１Ｆ
  148.     &def 赤21=0    //遺跡２Ｆto３Ｆ
  149.     &def 赤22=0    //遺跡２Ｆto１Ｆ
  150.     &def 白31=0    //遺跡３Ｆto転送
  151.     &def 青31=0    //遺跡３Ｆto転送
  152.     &def 赤31=0    //遺跡３Ｆto転送
  153.     &def 黒31=0    //遺跡３Ｆto転送
  154. //図鑑
  155.     &def モ01=0
  156.     &def モ02=0
  157.     &def モ03=0
  158.     &def モ04=0
  159.     &def モ05=0
  160.     &def モ06=0
  161.     &def モ07=0
  162.     &def モ08=0
  163.     &def モ09=0
  164.     &def モ10=0
  165.     &def モ11=0
  166.     &def モ12=0
  167.     &def モ13=0
  168.     &def モ14=0
  169.     &def モ15=0
  170.     &def モ16=0
  171.     &def モ17=0
  172.     &def モ18=0
  173.     &def モ19=0
  174.     &def モ20=0
  175.     &def モ21=0
  176.     &def モ22=0
  177.     &def モ23=0
  178.     &def モ24=0
  179.     &def モ25=0
  180.     &def モ26=0
  181.     &def モ27=0
  182.     &def モ28=0
  183.     &def モ29=0
  184.     &def モ30=0
  185.  
  186.     &bgm 6    //音色設定
  187.     &goto タイトル
  188.  
  189.  
  190. //-------------------------------------------------------------------
  191. [Ｓ０]    //STAFF
  192. //-------------------------------------------------------------------
  193.     &mapsp SPP\KENKYU_I.SPP
  194.     &mappal PAL\KENKYU_I.PAL
  195.     &map MAP\OPENING.MAP
  196.     &partyspeed 1
  197.     &partyset 0
  198.     %partypoint={0,0,%down}
  199.     &on
  200.     &bgm 0
  201.  
  202.     &exec BIN\xpicw -whol.wl -s3 -t1 -f1 CG\END_0.DAT
  203.     &exec BIN\xpicw -wziwa.wl -s3 -f1 CG\END_1.DAT
  204.     &pause
  205.     &exec BIN\xpicw -cfade.wl -d3
  206.  
  207.     &bgm 40
  208.     &exec BIN\xpicw -whol.wl -s2 -t2 -f1 CG\SR0.DAT -cdol.wl -d3
  209.     &initscreen
  210.     &goto Ｅ１
  211.  
  212.  
  213. //-------------------------------------------------------------------
  214. [Ｅ１]
  215. //-------------------------------------------------------------------
  216.     %partypoint={0,63,%up}
  217.  
  218.     %mandef(1)={$C,0,$C0,%right,0}    //クロ（寝）
  219.     %mandef(2)={$C,0,$E0,%right,0}    //ジオット（作業）
  220.     &on
  221.  
  222.     &jsr 修理
  223.     &jsr 闇
  224.     &goto Ｓ１
  225.  
  226.  
  227. //-------------------------------------------------------------------
  228. [Ｓ１]    //produced by
  229. //-------------------------------------------------------------------
  230.     &mapsp SPP\KENKYU_I.SPP
  231.     %partypoint={0,0,%down}
  232.     &on
  233.  
  234.     &exec BIN\xpicw -whol.wl -s3 -t1 -f1 CG\SR1_0.DAT
  235.     &exec BIN\xpicw -wziwa.wl -s1 -t1 -f1 CG\SR1_1.DAT
  236.     &exec BIN\xpicw -wziwa.wl -s3 -t1 -f1 CG\SR1_3.DAT -cdol.wl -d3
  237.     &initscreen
  238.     &goto Ｅ２
  239.  
  240.  
  241. //-------------------------------------------------------------------
  242. [Ｅ２]    //moondust
  243. //-------------------------------------------------------------------
  244.     &mappal PAL\KENKYU_S.PAL
  245.     &map MAP\TAIBOKU.MAP
  246.     %partypoint={50,50,%down}
  247.  
  248.     %mandef(2)={$9,0,$C6,%down,-1}    //ムーンダスト（蕾）
  249.     %mandef(7)={$E,6,$8B,%down,-1}    //本（開）
  250.     %manpoint(2)={52,52}
  251.     &on
  252.  
  253.     &partymove 4,6,4,6,4,6,4,6
  254.     %mandef(2)={$9,0,$C7,%down,-1}    //ムーンダスト（花）
  255.     &on
  256.     &partymove 4,6,4,6,4,6
  257.     &jsr 闇
  258.     &goto Ｓ２
  259.  
  260.  
  261. //-------------------------------------------------------------------
  262. [Ｓ２]    //monster design
  263. //-------------------------------------------------------------------
  264.     &mapsp SPP\END_3.SPP
  265.     &mappal PAL\HUUSYA.PAL
  266.     &map MAP\OPENING.MAP
  267.     %partypoint={0,0,%down}
  268.     &on
  269.  
  270.     &exec BIN\xpicw -whol.wl -s3 -t1 -f1 CG\SR2_0.DAT
  271.     &exec BIN\xpicw -wziwa.wl -s1 -t3 -f1 CG\SR2_1.DAT -cdol.wl -d3
  272.     &initscreen
  273.     &goto Ｅ３
  274.  
  275.  
  276. //-------------------------------------------------------------------
  277. [Ｅ３]    //wind
  278. //-------------------------------------------------------------------
  279.     &map MAP\END_3.MAP
  280.     %partypoint={0,0,%down}
  281.  
  282.     %mandef(1)={$2,6,$84,%down,-1}    //墓
  283.     %mandef(2)={$2,6,$84,%down,-1}    //墓
  284.     %mandef(3)={$2,6,$84,%down,-1}    //墓
  285.     &monsprint 8,112,羽根０
  286.     &monsprint 120,0,羽根３
  287.     &on
  288.  
  289.     I=0
  290.     &label
  291.     &if(I<4){
  292.         &if(I==3){
  293.             &contrast 0
  294.         }
  295.         &monsprint 8,112,羽根１
  296.         &wait 2
  297.         &monsprint 120,0,羽根４
  298.         &wait 2
  299.         &monsprint 8,112,羽根２
  300.         &wait 2
  301.         &monsprint 120,0,羽根５
  302.         &wait 2
  303.         &monsprint 8,112,羽根３
  304.         &wait 2
  305.         &monsprint 120,0,羽根０
  306.         &wait 2
  307.         &monsprint 8,112,羽根４
  308.         &wait 2
  309.         &monsprint 120,0,羽根１
  310.         &wait 2
  311.         &monsprint 8,112,羽根５
  312.         &wait 2
  313.         &monsprint 120,0,羽根２
  314.         &wait 2
  315.         &monsprint 8,112,羽根０
  316.         &wait 2
  317.         &monsprint 120,0,羽根３
  318.         I++
  319.         &jmp @b
  320.     }
  321.     &goto Ｓ３
  322.  
  323.  
  324. //-------------------------------------------------------------------
  325. [Ｓ３]    //music compose
  326. //-------------------------------------------------------------------
  327.     &mapsp SPP\SIRO.SPP
  328.     &mappal PAL\SIRO.PAL
  329.     &map MAP\OPENING.MAP
  330.     %partypoint={0,0,%down}
  331.  
  332.     &exec BIN\xpicw -whol.wl -s3 -t1 -f1 CG\SR3_0.DAT
  333.     &exec BIN\xpicw -wziwa.wl -s1 -t3 -f1 CG\SR3_1.DAT -cdol.wl -d3
  334.     &initscreen
  335.     &goto Ｅ４
  336.  
  337.  
  338. //-------------------------------------------------------------------
  339. [Ｅ４]    //sky
  340. //-------------------------------------------------------------------
  341.     &map MAP\SIRO.MAP
  342.     %partypoint={32,42,%up}
  343.  
  344.     %mandef(1)={$2,1,$28,%down,0}    //旗
  345.     %mandef(2)={$2,1,$28,%down,0}    //旗
  346.     %mandef(3)={$2,1,$28,%down,0}    //旗
  347.     %mandef(4)={$2,1,$28,%down,0}    //旗
  348.     %mandef(5)={$F,3,$A0,%down,0}    //勇者
  349.     %mandef(7)={$F,3,$60,%down,0}    //兵２
  350.     %mandef(8)={$F,3,$60,%down,0}    //兵２
  351.     &on
  352.  
  353.     &partymove 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  354.     %mandef(5)={$F,3,$A0,%down,-1}    //勇者
  355.     %manpoint(5)={100,100}
  356.     &on
  357.     &wait 10
  358.     %manpoint(5)={44,32}
  359.     &on
  360.     &wait 7
  361.     %mandef(5)={$F,0,$AC,%down,-1}    //影
  362.     %manpoint(5)={44,28}
  363.     &on
  364.     %mandef(5)={$F,3,$A0,%down,-1}    //勇者
  365.     %manpoint(5)={44,32}
  366.     &on
  367.     &wait 5
  368.     %mandef(5)={$F,3,$A0,%down,-1}    //勇者
  369.     %manpoint(5)={44,20}
  370.     &on
  371.     %mandef(5)={$F,0,$AC,%down,-1}    //影
  372.     %manpoint(5)={44,32}
  373.     &on
  374.     &wait 2
  375.     %mandef(5)={$F,3,$A0,%down,-1}    //勇者
  376.     %manpoint(5)={44,6}
  377.     &on
  378.     &contrast 0
  379.     %mandef(5)={$F,0,$AC,%down,-1}    //影
  380.     %manpoint(5)={44,32}
  381.     &on
  382.     %manpoint(5)={100,100}
  383.     &on
  384.     &goto Ｓ４
  385.  
  386.  
  387. //-------------------------------------------------------------------
  388. [Ｓ４]    //special thanks to
  389. //-------------------------------------------------------------------
  390.     &mapsp SPP\KENKYU_I.SPP
  391.     &mappal PAL\KENKYU_I.PAL
  392.     &map MAP\OPENING.MAP
  393.     %partypoint={0,0,%down}
  394.     &on
  395.  
  396.     &exec BIN\xpicw -whol.wl -s3 -t1 -f1 CG\SR4_0.DAT
  397.     &exec BIN\xpicw -wziwa.wl -s1 -t3 -f1 CG\SR4_1.DAT
  398.     &exec BIN\xpicw -wdol.wl -s3 -t0 -f1 CG\SR4_0.DAT
  399.     &exec BIN\xpicw -wziwa.wl -s1 -t3 -f1 CG\SR4_2.DAT
  400.     &exec BIN\xpicw -wdol.wl -s3 -t0 -f1 CG\SR4_0.DAT
  401.     &exec BIN\xpicw -wziwa.wl -s3 -t0 -f1 CG\SR4_3.DAT
  402.     &exec BIN\xpicw -wziwa.wl -s1 -t3 -f1 CG\SR4_4.DAT -cdol.wl -d3
  403.     &initscreen
  404.     &goto Ｅ５
  405.  
  406.  
  407. //-------------------------------------------------------------------
  408. [Ｅ５]    //happy?
  409. //-------------------------------------------------------------------
  410.     &map MAP\KENKYU.MAP
  411.     %partypoint={10,53,%up}
  412.     &on
  413.  
  414.     %mandef(1)={$C,0,$60,%right,0}    //クロ
  415.     %mandef(2)={$B,0,$AE,%down,-1}    //？
  416.     %manpoint(1)={3,56-34}
  417.     %manpoint(2)={100,100}
  418.     &wait 40
  419.     &on
  420.     &wait 60
  421.     %manpoint(2)={3,54-34}
  422.     &on
  423.     &manmove 1,-2,-8,-4,-6
  424.     %mandef(1)={$C,0,$60,%right,1}    //クロ
  425.     %manpoint(2)={100,100}
  426.     &on
  427.     &manmove 1,6,6,6,6,6,6,6,2,2,2,2,2
  428.     %manpoint(1)={100,100}
  429.     &on
  430.     &jsr 闇
  431.     &goto Ｅ６
  432.  
  433.  
  434. //-------------------------------------------------------------------
  435. [Ｅ６]    //end
  436. //-------------------------------------------------------------------
  437.     &mapsp SPP\KENKYU.SPP
  438.     &mappal PAL\KENKYU.PAL
  439.     %partypoint={18,20,%up}
  440.  
  441.     %mandef(1)={$C,0,$60,%down,0}    //クロ
  442.     %mandef(2)={$B,0,$AF,%down,-1}    //！
  443.     %mandef(4)={$9,0,$C0,%up,0}    //パラボラ
  444.     %mandef(9)={$F,1,$C1,%down,-1}    //ドア（開）
  445.     %mandef(11)={$C,2,$C0,%up,0}    //カイパー
  446.     %mandef(12)={$E,1,$E0,%down,0}    //オールト
  447.     %mandef(13)={$C,0,$40,%up,0}    //タマ
  448.     %mandef(14)={$C,0,$80,%right,0}    //ジオット
  449.     %mandef(15)={$E,6,$40,%down,0}    //ホロ
  450.     %mandef(16)={$B,1,$40,%left,0}    //ラズ
  451.     %mandef(17)={$B,1,$60,%left,0}    //ストロ
  452.     %mandef(18)={$B,1,$80,%up,0}    //グーズ
  453.     %manpoint(1)={100,100}
  454.     %manpoint(2)={100,100}
  455.     %manpoint(9)={100,100}
  456.     &if(蛙==1){
  457.         %mandef(13)={$E,7,$80,%up,0}    //タマ（蛙）
  458.         %mandef(16)={$A,7,$80,%left,0}    //ラズ（蛙）
  459.         %mandef(17)={$A,7,$80,%left,0}    //ストロ（蛙）
  460.         %mandef(18)={$A,7,$80,%up,0}    //グーズ（蛙）
  461.     }
  462.     &on
  463.  
  464.     &partymove 4,6
  465.     %manpoint(2)={18,17}
  466.     &on
  467.     &partymove 4,6
  468.     &manmove 12,-6
  469.     %manpoint(2)={100,100}
  470.     &on
  471.     &manmove 11,-6
  472.     &partymove 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
  473.     %manpoint(9)={37,19}
  474.     %manpoint(1)={37,20}
  475.     &on
  476.     &manmove 1,2,2
  477.     &partymove 4,6,4,6
  478.     &manmove 14,6
  479.     &manmove 1,-4
  480.     &manmove 15,-6,-2
  481.     &manmove 16,4,4
  482.     &manmove 17,4
  483.     &manmove 1,-6
  484.     &partymove 4,6,4,6
  485.     &manmove 1,-2
  486.     &manmove 13,8
  487.     &partymove 4,6,4,6,4,6,4,6
  488.     &manmove 15,-6,-2
  489.     &bgm -1
  490.     &contrast 0
  491.     &partymove 4,6,4,6,4,6,4,6,4,6,4,6
  492.     &if(宝49==0){
  493.         &goto Ｓ５
  494.     }&else{
  495.         &goto エピローグ
  496.     }
  497.  
  498.  
  499. //-------------------------------------------------------------------
  500. [Ｓ５]    //2B?
  501. //-------------------------------------------------------------------
  502.     &map MAP\OPENING.MAP
  503.     %partypoint={0,0,%down}
  504.     &on
  505.  
  506.     &bgm 34
  507.     &exec BIN\xpicw -whol.wl -s2 -f0 CG\GIO.DAT
  508.     &if(宝49==1){
  509.         &wait 80
  510.         &exec BIN\xpicw -wraster.wl -s1 -f0 CG\2BC_0.DAT
  511.         &pcm 13
  512.         &exec BIN\xpicw -wziwa.wl -s2 -f0 -t3 CG\2BC_2.DAT
  513.     }
  514.     &exec BIN\xpicw -chol.wl -d3
  515.     &initscreen
  516.     !o0b2終了しますか？b5
  517.     &wait 10
  518.     &if(%inkeyn==0){
  519.         !c
  520.         &end
  521.     }&else{
  522.         !c
  523.         &reset
  524.     }
  525.  
  526.  
  527. //-------------------------------------------------------------------
  528. [ＧＡＭＥＯＶＥＲ]
  529. //-------------------------------------------------------------------
  530.     &map MAP\OPENING.MAP
  531.     &partyset 0
  532.     %partypoint={0,0,%down}
  533.     &on
  534.  
  535.     &bgm 34
  536.     &exec BIN\xpicw -whol.wl -s2 -f0 -t0 CG\GIO.DAT -craster.wl
  537.     &initscreen
  538.  
  539.     &goto START
  540.  
  541.     !o0b2終了しますか？b5
  542.     &wait 10
  543.     &if(%inkeyn==0){
  544.         !c
  545.         &end
  546.     }&else{
  547.         !c
  548.         &reset
  549.     }
  550.  
  551. //-------------------------------------------------------------------
  552. [ＯＰ０]
  553. //-------------------------------------------------------------------
  554.     &patternpal PAL\CG_C.PAL
  555.     &mapsp SPP\KENKYU_I.SPP
  556.     &mappal PAL\KENKYU_I.PAL
  557.     &map MAP\OPENING.MAP
  558.     &partyset 0
  559.     &partyspeed 1
  560.     %partypoint={0,0,%down}
  561.     &bgm -1
  562.     &on
  563.  
  564.     !o1b0s0j2？？？:b5s20j0「・・・永く続いたあなたへの罰も、もうすぐ終わりです。p;
  565.     !さあ、最後の仕上げですよ。頑張りましょう・・・。pcs0
  566.     &jsr 闇
  567.     &goto ＯＰ１
  568.  
  569.  
  570. //-------------------------------------------------------------------
  571. [ＯＰ１]
  572. //-------------------------------------------------------------------
  573.     %partypoint={0,55,%up}
  574.  
  575.     %mandef(1)={$C,0,$A0,%right,0}    //タマ（寝）
  576.     %mandef(2)={$C,0,$E0,%right,0}    //ジオット（作業）
  577.     &on
  578.  
  579.     &partymove 4,4,4,4,4,4
  580.     %mandef(2)={$C,0,$E0,%up,0}    //ジオット（作業）
  581.     %manpoint(2)={15,49}
  582.     &on
  583.     &monsprint 0,40,ロゴ１
  584.     &partymove 4,4
  585.     &monsprint 0,40,ロゴ２
  586.     &partymove 4,4,4,4,4,4,4,4,4,4,4
  587.     &monsprint 0,40,ロゴ１
  588.     &partymove 4,4
  589.     &monsprint 0,40,ロゴ０
  590.     &partymove 4,4,4,4,4,4,4,4
  591.     %mandef(2)={$C,0,$E0,%left,0}    //ジオット（作業）
  592.     %manpoint(2)={17,47}
  593.     &on
  594.     &monsprint 0,88,ロゴ３
  595.     &partymove 4,4
  596.     &monsprint 0,88,ロゴ４
  597.     &partymove 4,4,4,4,4,4,4,4,4,4,4,4,4
  598.     &monsprint 0,88,ロゴ３
  599.     &partymove 4,4
  600.     &monsprint 0,88,ロゴ０
  601.     &partymove 4,4,4,4,4,4,4,4
  602.     %mandef(2)={$C,0,$E0,%up,0}    //ジオット（作業）
  603.     %manpoint(2)={15,49}
  604.     &on
  605.     &monsprint 0,168,ロゴ５
  606.     &partymove 4,4
  607.     &monsprint 0,168,ロゴ６
  608.     &partymove 4,4,4,4,4,4,4,4,4,4
  609.     &monsprint 0,168,ロゴ５
  610.     &partymove 4,4
  611.     &monsprint 0,168,ロゴ０
  612.     &partymove 4,4,4,4,4,4,4,4
  613.     %mandef(2)={$C,0,$E0,%right,0}    //ジオット（作業）
  614.     %manpoint(2)={13,47}
  615.     &on
  616.     &partymove 4,4,4,4,4,4,4,4,4,4,4,4,4
  617.     &jsr 闇
  618.     &goto ＯＰ２
  619.  
  620.  
  621. //-------------------------------------------------------------------
  622. [フィールド]
  623. //-------------------------------------------------------------------
  624.     &mapsp SPP\FIELD.SPP
  625.     &mappal PAL\FIELD.PAL
  626.     &map MAP\FIELD.MAP
  627.     &jsr 小
  628.     %partypoint={@1,%down}
  629.     &bgm 11
  630.     &on
  631.  
  632. #@1    &if(%direc<0){
  633.         &se 13
  634.         &goto 研究所
  635.     }
  636. #@2    &if(%direc<0){
  637.         &se 13
  638.         &goto 大木
  639.     }
  640. #@3    &if(%direc<0){
  641.         I=100
  642.         &se 13
  643.         &goto2 洞窟１,@2,-%up
  644.     }
  645. #@4    &if(%direc<0){
  646.         I=100
  647.         &se 13
  648.         &goto2 洞窟１,@3,-%up
  649.     }
  650. #@5    &if(%direc<0){
  651.         &se 13
  652.         &goto2 滝,@1,-%up
  653.     }
  654. #@6    &switch(%direc){
  655.     &case -6:
  656.         &se 13
  657.         &goto2 滝,@15,-%right
  658.     &case -8:
  659.         &se 13
  660.         &goto2 滝,@4,-%up
  661.     }
  662. #@7    &if(%direc<0){
  663.         &se 13
  664.         &goto2 洞窟２,@2,-%left
  665.     }
  666. #@8    &if(%direc<0){
  667.         &se 13
  668.         &goto2 洞窟２,@3,-%right
  669.     }
  670. #@9    &if(%direc<0){
  671.         &se 13
  672.         &goto 観測所
  673.     }
  674. #@10    &if(%direc<0){
  675.         &se 13
  676.         &goto 灯台
  677.     }
  678. #@11    &switch(%direc){
  679.     &case -2:
  680.         &se 13
  681.         &goto 城
  682.     &case -4:
  683.         &se 13
  684.         &goto2 城,@10,-%left
  685.     &case -6:
  686.         &se 13
  687.         &goto2 城,@9,-%right
  688.     &case -8:
  689.         &se 13
  690.         &goto 城
  691.     }
  692. #@12    &switch(%direc){
  693.     &case -2:
  694.         &se 13
  695.         &goto2 町,@2,-%down
  696.     &case -4:
  697.         &se 13
  698.         &goto2 町,@4,-%left
  699.     &case -6:
  700.         &se 13
  701.         &goto2 町,@6,-%right
  702.     &case -8:
  703.         &se 13
  704.         &goto2 町,@8,-%up
  705.     }
  706. #@13    &if(%direc<0){
  707.         &se 13
  708.         &goto 村
  709.     }
  710. #@14    &if(%direc<0){
  711.         &se 13
  712.         &goto オアシス
  713.     }
  714. #@20    &if(%direc<0){
  715.         &se 13
  716.         &goto 洞窟３
  717.     }
  718. #@21    &if(%direc<0){
  719.         &se 13
  720.         &goto 風車
  721.     }
  722. #@22    &if(%direc==-4 and Ａ>=20 and Ａ<40){
  723.         &se 13
  724.         &goto 橋
  725.     }
  726. #@26    &switch(%direc){
  727.     &case -2:
  728.         &se 13
  729.         &goto2 入口,@8,-%down
  730.     &case -4:
  731.         &se 13
  732.         &goto2 入口,@6,-%left
  733.     &case -6:
  734.         &se 13
  735.         &goto2 入口,@4,-%right
  736.     &case -8:
  737.         &se 13
  738.         &goto2 入口,@2,-%up
  739.     }
  740. #@27    &jsr 敵２
  741.     &patternpal PAL\CG_A.PAL
  742.     &switch(%rnd(5)){
  743.     &case 0:
  744.         &battle $0,35,ネホリン,1,ハホリン,1
  745.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ01==0){
  746.             モ01=1
  747.         }
  748.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ02==0){
  749.             モ02=1
  750.         }
  751.         &break
  752.     &case 1:
  753.         &battle $0,35,ツツガムシ,%rnd(3)+1
  754.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ03==0){
  755.             モ03=1
  756.         }
  757.         &break
  758.     &case 2:
  759.         &battle $0,35,ポインティ,1
  760.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ04==0){
  761.             モ04=1
  762.         }
  763.         &break
  764.     &case 3:
  765.         &battle $0,35,ハチベー,%rnd(3)+1
  766.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ05==0){
  767.             モ05=1
  768.         }
  769.         &break
  770.     &case 4:
  771.         &battle $0,35,ゲンノショウコ,1
  772.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ06==0){
  773.             モ06=1
  774.         }
  775.         &break
  776.     }
  777.     &jsr 戦闘後処理
  778. #@28    &jsr 敵２
  779.     &patternpal PAL\CG_B.PAL
  780.     &switch(%rnd(6)){
  781.     &case 0:
  782.         &battle $0,35,タタミン,%rnd(2)+1
  783.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ11==0){
  784.             モ11=1
  785.         }
  786.         &break
  787.     &case 1:
  788.         &battle $0,35,カマキラ,%rnd(3)+1
  789.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ12==0){
  790.             モ12=1
  791.         }
  792.         &break
  793.     &case 2:
  794.         &battle $0,35,ゴブリン,%rnd(4)+1
  795.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ13==0){
  796.             モ13=1
  797.         }
  798.         &break
  799.     &case 3:
  800.         &battle $0,35,チビウィズ,%rnd(2)+1
  801.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ14==0){
  802.             モ14=1
  803.         }
  804.         &break
  805.     &case 4:
  806.         &battle $0,35,タタミン,1,チビウィズ,%rnd(2)+1
  807.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ11==0){
  808.             モ11=1
  809.         }
  810.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ14==0){
  811.             モ14=1
  812.         }
  813.         &break
  814.     &case 5:
  815.         &battle $0,35,ゴブリン,%rnd(4)+1,カマキラ,1
  816.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ13==0){
  817.             モ13=1
  818.         }
  819.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ12==0){
  820.             モ12=1
  821.         }
  822.         &break
  823.     }
  824.     &jsr 戦闘後処理
  825. #@29    &jsr 敵２
  826.     &patternpal PAL\CG_C.PAL
  827.     &switch(%rnd(5)){
  828.     &case 0:
  829.         &battle $0,35,草の王,%rnd(3)+1
  830.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ08==0){
  831.             モ08=1
  832.         }
  833.         &break
  834.     &case 1:
  835.         &battle $0,35,ヒクイ,%rnd(3)+1
  836.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ09==0){
  837.             モ09=1
  838.         }
  839.         &break
  840.     &case 2:
  841.         &battle $0,35,マジシャン,%rnd(2)+1
  842.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ10==0){
  843.             モ10=1
  844.         }
  845.         &break
  846.     &case 3:
  847.         &battle $0,35,草の王,%rnd(2)+1,ヒクイ,1
  848.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ08==0){
  849.             モ08=1
  850.         }
  851.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ09==0){
  852.             モ09=1
  853.         }
  854.         &break
  855.     &case 4:
  856.         &battle $0,35,ヒクイ,1,マジシャン,1,ヒクイ,1
  857.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ09==0){
  858.             モ09=1
  859.         }
  860.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ10==0){
  861.             モ10=1
  862.         }
  863.         &break
  864.     }
  865.     &jsr 戦闘後処理
  866. #@30    &jsr 敵３
  867.     &patternpal PAL\CG_A.PAL
  868.     &switch(%rnd(5)){
  869.     &case 0:
  870.         &battle $0,35,カミミミズク,1,ハチベー,%rnd(3)+1
  871.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ05==0){
  872.             モ05=1
  873.         }
  874.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ07==0){
  875.             モ07=1
  876.         }
  877.         &break
  878.     &case 1:
  879.         &battle $0,35,カミミミズク,%rnd(2)+1
  880.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ07==0){
  881.             モ07=1
  882.         }
  883.         &break
  884.     &case 2:
  885.         &battle $0,35,ポインティ,%rnd(3)+1
  886.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ04==0){
  887.             モ04=1
  888.         }
  889.         &break
  890.     &case 3:
  891.         &battle $0,35,ハチベー,%rnd(2)+1,ツツガムシ,%rnd(3)+1
  892.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ05==0){
  893.             モ05=1
  894.         }
  895.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ03==0){
  896.             モ03=1
  897.         }
  898.         &break
  899.     &case 4:
  900.         &battle $0,35,ゲンノショウコ,%rnd(4)+1
  901.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ06==0){
  902.             モ06=1
  903.         }
  904.         &break
  905.     }
  906.     &jsr 戦闘後処理
  907. #@32    &jsr 敵３
  908.     &patternpal PAL\CG_C.PAL
  909.     &switch(%rnd(5)){
  910.     &case 0:
  911.         &battle $0,35,草の王,%rnd(4)+1
  912.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ08==0){
  913.             モ08=1
  914.         }
  915.         &break
  916.     &case 1:
  917.         &battle $0,35,ヒクイ,%rnd(3)+1
  918.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ09==0){
  919.             モ09=1
  920.         }
  921.         &break
  922.     &case 2:
  923.         &battle $0,35,マジシャン,%rnd(2)+1
  924.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ10==0){
  925.             モ10=1
  926.         }
  927.         &break
  928.     &case 3:
  929.         &battle $0,35,草の王,%rnd(2)+1,ヒクイ,%rnd(2)+1
  930.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ08==0){
  931.             モ08=1
  932.         }
  933.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ09==0){
  934.             モ09=1
  935.         }
  936.         &break
  937.     &case 4:
  938.         &battle $0,35,ヒクイ,1,マジシャン,1,ヒクイ,1
  939.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ09==0){
  940.             モ09=1
  941.         }
  942.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ10==0){
  943.             モ10=1
  944.         }
  945.         &break
  946.     }
  947.     &jsr 戦闘後処理
  948. #@40    &wait 4
  949.     &jsr 敵４
  950.     &patternpal PAL\CG_A.PAL
  951.     &switch(%rnd(5)){
  952.     &case 0:
  953.         &battle $0,35,カミミミズク,1,ハチベー,%rnd(3)+1
  954.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ07==0){
  955.             モ07=1
  956.         }
  957.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ05==0){
  958.             モ05=1
  959.         }
  960.         &break
  961.     &case 1:
  962.         &battle $0,35,カミミミズク,%rnd(2)+1
  963.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ07==0){
  964.             モ07=1
  965.         }
  966.         &break
  967.     &case 2:
  968.         &battle $0,35,ポインティ,%rnd(3)+1
  969.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ04==0){
  970.             モ04=1
  971.         }
  972.         &break
  973.     &case 3:
  974.         &battle $0,35,ハチベー,%rnd(2)+1,ツツガムシ,%rnd(3)+1
  975.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ05==0){
  976.             モ05=1
  977.         }
  978.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ03==0){
  979.             モ03=1
  980.         }
  981.         &break
  982.     &case 4:
  983.         &battle $0,35,ゲンノショウコ,%rnd(4)+1
  984.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ06==0){
  985.             モ06=1
  986.         }
  987.         &break
  988.     }
  989.     &jsr 戦闘後処理
  990. #@41    &wait 4
  991.     &jsr 敵４
  992.     &patternpal PAL\CG_C.PAL
  993.     &switch(%rnd(5)){
  994.     &case 0:
  995.         &battle $0,35,草の王,%rnd(4)+1
  996.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ08==0){
  997.             モ08=1
  998.         }
  999.         &break
  1000.     &case 1:
  1001.         &battle $0,35,ヒクイ,%rnd(4)+1
  1002.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ09==0){
  1003.             モ09=1
  1004.         }
  1005.         &break
  1006.     &case 2:
  1007.         &battle $0,35,マジシャン,%rnd(3)+1
  1008.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ10==0){
  1009.             モ10=1
  1010.         }
  1011.         &break
  1012.     &case 3:
  1013.         &battle $0,35,草の王,%rnd(3)+1,ヒクイ,1
  1014.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ08==0){
  1015.             モ08=1
  1016.         }
  1017.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ09==0){
  1018.             モ09=1
  1019.         }
  1020.         &break
  1021.     &case 4:
  1022.         &battle $0,35,ヒクイ,1,マジシャン,1,ヒクイ,1
  1023.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ09==0){
  1024.             モ09=1
  1025.         }
  1026.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ10==0){
  1027.             モ10=1
  1028.         }
  1029.         &break
  1030.     }
  1031.     &jsr 戦闘後処理
  1032. #@42    &wait 4
  1033.     &jsr 敵４
  1034.     &patternpal PAL\CG_B.PAL
  1035.     &switch(%rnd(6)){
  1036.     &case 0:
  1037.         &battle $0,35,タタミン,%rnd(3)+1
  1038.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ11==0){
  1039.             モ11=1
  1040.         }
  1041.         &break
  1042.     &case 1:
  1043.         &battle $0,35,カマキラ,%rnd(4)+1
  1044.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ12==0){
  1045.             モ12=1
  1046.         }
  1047.         &break
  1048.     &case 2:
  1049.         &battle $0,35,ゴブリン,%rnd(5)+1
  1050.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ13==0){
  1051.             モ13=1
  1052.         }
  1053.         &break
  1054.     &case 3:
  1055.         &battle $0,35,チビウィズ,%rnd(3)+1
  1056.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ14==0){
  1057.             モ14=1
  1058.         }
  1059.         &break
  1060.     &case 4:
  1061.         &battle $0,35,タタミン,1,チビウィズ,%rnd(3)+1
  1062.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ11==0){
  1063.             モ11=1
  1064.         }
  1065.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ14==0){
  1066.             モ14=1
  1067.         }
  1068.         &break
  1069.     &case 5:
  1070.         &battle $0,35,ゴブリン,%rnd(4)+1,カマキラ,%rnd(2)+1
  1071.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ12==0){
  1072.             モ12=1
  1073.         }
  1074.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ13==0){
  1075.             モ13=1
  1076.         }
  1077.         &break
  1078.     }
  1079.     &jsr 戦闘後処理
  1080. #@49    &jsr 敵３
  1081.     &patternpal PAL\CG_C.PAL
  1082.     &switch(%rnd(6)){
  1083.     &case 0:
  1084.         &battle $0,35,サンドワーム,%rnd(2)+1
  1085.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ21==0){
  1086.             モ21=1
  1087.         }
  1088.         &break
  1089.     &case 1:
  1090.         &battle $0,35,カラカラ,%rnd(4)+1
  1091.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ22==0){
  1092.             モ22=1
  1093.         }
  1094.         &break
  1095.     &case 2:
  1096.         &battle $0,35,スコルピウス,%rnd(3)+1
  1097.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ23==0){
  1098.             モ23=1
  1099.         }
  1100.         &break
  1101.     &case 3:
  1102.         &battle $0,35,スフィンクス,%rnd(2)+1
  1103.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ24==0){
  1104.             モ24=1
  1105.         }
  1106.         &break
  1107.     &case 4:
  1108.         &battle $0,35,カラカラ,%rnd(2)+1,スコルピウス,%rnd(2)+1
  1109.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ22==0){
  1110.             モ22=1
  1111.         }
  1112.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ23==0){
  1113.             モ23=1
  1114.         }
  1115.         &break
  1116.     &case 5:
  1117.         &battle $0,35,スフィンクス,1,カラカラ,%rnd(3)+1
  1118.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ24==0){
  1119.             モ24=1
  1120.         }
  1121.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ22==0){
  1122.             モ22=1
  1123.         }
  1124.         &break
  1125.     }
  1126.     &jsr 戦闘後処理
  1127.  
  1128.  
  1129. //-------------------------------------------------------------------
  1130. [町]    //パーセク
  1131. //-------------------------------------------------------------------
  1132.     &mapsp SPP\MATI.SPP
  1133.     &mappal PAL\MATI.PAL
  1134.     &map MAP\MATI.MAP
  1135.     &jsr 大
  1136.     %partypoint={@2,-%down}
  1137.     &if(%nowbgm!=18){
  1138.         &bgm 18
  1139.     }
  1140.  
  1141.     %mandef(1)={$A,1,$14,%up,0}    //炎
  1142.     %mandef(2)={$A,1,$14,%up,0}    //炎
  1143.     %mandef(3)={$A,1,$14,%up,0}    //炎
  1144.     %mandef(4)={$A,1,$14,%up,0}    //炎
  1145.     %mandef(5)={$A,1,$14,%up,0}    //炎
  1146.     %mandef(6)={$A,1,$14,%up,0}    //炎
  1147.     %mandef(7)={$A,1,$14,%up,0}    //炎
  1148.     %mandef(8)={$A,1,$14,%up,0}    //炎
  1149.     %mandef(9)={$F,1,$C1,%down,-1}    //ドア（開）
  1150.     %mandef(10)={$6,1,$C5,%down,-1}    //立て札
  1151.     %mandef(11)={$2,1,$A0,%down,0}    //噴水（左）
  1152.     %mandef(12)={$2,1,$A4,%down,0}    //噴水（右）
  1153.     %mandef(13)={$A,3,$C0,%down,2}    //町男１
  1154.     %mandef(14)={$D,5,$60,%down,3}    //村女１
  1155.     %mandef(15)={$C,6,$E0,%down,1}    //黒猫
  1156.     %mandef(16)={$D,4,$00,%down,2}    //町男２
  1157.     %mandef(17)={$D,4,$20,%down,0}    //町女２
  1158.     %mandef(18)={$A,4,$60,%up,0}    //町老女
  1159.     %mandef(19)={$D,4,$00,%left,0}    //町男２
  1160.     %mandef(20)={$A,3,$C0,%right,2}    //町男１
  1161.     %mandef(21)={$A,3,$E0,%down,2}    //町女１
  1162.     %mandef(22)={$E,4,$A0,%down,1}    //町子女
  1163.     %mandef(23)={$A,3,$E0,%down,2}    //町女１
  1164.     %mandef(25)={$E,4,$A0,%down,1}    //町子女
  1165.     %mandef(26)={$D,4,$20,%down,2}    //町女２
  1166.     %mandef(27)={$A,4,$40,%down,3}    //町老男
  1167.     &if(Ｂ<60){
  1168.         %mandef(24)={$A,4,$80,%up,0}    //町子男
  1169.         %manpoint(24)={54,5}
  1170.     }&else{
  1171.         %mandef(24)={$A,4,$80,%down,1}    //町子男
  1172.     }
  1173.     &if(Ａ>60 and Ａ<290 and Ｂ!=70){
  1174.         %mandef(28)={$C,2,$E0,%down,0}    //パンダ仮面
  1175.     }
  1176.     &if(Ｂ==70){
  1177.         %mandef(28)={$C,2,$C0,%down,0}    //カイパー
  1178.     }
  1179.     &if(クミン==1 and Ｂ>=60){
  1180.         %mandef(29)={$C,7,$00,%up,0}    //兎
  1181.         %manpoint(29)={54,5}
  1182.         I=0
  1183.     }
  1184.     %manpoint(1)={42,2}
  1185.     %manpoint(2)={52,2}
  1186.     %manpoint(3)={1,43}
  1187.     %manpoint(4)={1,53}
  1188.     %manpoint(5)={42,94}
  1189.     %manpoint(6)={52,94}
  1190.     %manpoint(7)={93,53}
  1191.     %manpoint(8)={93,43}
  1192.     %manpoint(9)={100,100}
  1193.     &on
  1194.  
  1195. #1
  1196. #2
  1197. #3
  1198. #4
  1199. #5
  1200. #6
  1201. #7
  1202. #8
  1203. #10    &if(%direc!=2){
  1204.         !o1s0『↑ユニバニア城;↓パーセクの町』qc
  1205.     }&else{
  1206.         !o1s0『三つの光、一番強き光は青き水に向かい動く』qc
  1207.         &if(Ｂ==60){
  1208.             Ｂ=70
  1209.         }
  1210.     }
  1211. #11
  1212. #12
  1213. #13    !o1s20「町の入口の火はね、聖なる炎っていって、モンスター除けになってるんだ。qcs0
  1214. #14    !o1s21「え、この服？ケレスの服よ。私、ケレスから来たの。p;
  1215.     !滝の裏の洞窟を抜ければ、ケレスの村に行けるわよ。qcs0
  1216. #15    !o1s0
  1217.     &if(Ｂ>=50){
  1218.         !b0j2ロク:b5j0
  1219.     }
  1220.     &pcm 6
  1221.     !「にゃー。qc
  1222. #16    &if(%rnd(2)==1){
  1223.         !o1s20「君達、遺跡で発見されたんだろ。いやあ、古の人達って凄いなあ。qcs0
  1224.     }&else{
  1225.         !o1s20「まだ信じられないよ。君達、機械なんだろ。ジオットさんて凄いなぁ。qcs0
  1226.     }
  1227. #17    &if(Ａ==65 or Ａ==110 or Ａ==210){
  1228.         !o1s21「そうそう、カイパーさん、最近変な格好してるのよね。qcs0
  1229.     }&else{
  1230.         !o1s21「この国のイベントも最近はパッとしないわね。p;
  1231.         !昔はものすごい参加者だったんだから。qcs0
  1232.     }
  1233.     &manmove 17,-2
  1234. #18    &if(Ａ==65 or Ａ==110 or Ａ==210){
  1235.         !o1s21「あそこの人、カイパーさんよね。qcs0
  1236.     }&else{
  1237.         !o1s21「この国のイベントも、最初の頃はお祭り騒ぎだったんだけどね。p;
  1238.         !近頃は町の人も飽きちゃったのよ。qcs0
  1239.     }
  1240.     &manmove 18,-8
  1241. #19    &if(Ａ<50 or Ａ==65 or Ａ==110 or Ａ==210){
  1242.         !o1s20「36王様は何の為にイベントを開催してるんだろう？p;
  1243.         !他の国の人達を集めたいのかな。qcs0
  1244.     }&else{
  1245.         !o1s20「この前のイベントは中止になったらしいよ。p;種目はかくれんぼだったかな。qcs0
  1246.     }
  1247.     &manmove 19,-4
  1248. #20    &if(Ａ>=65 and Ａ<140){
  1249.         !o1s20「今度のイベントの優勝賞品は、あのネビュラソードらしいぞ。p;
  1250.         !伝説の勇者が使ってたっていう、とんでもない剣だ。qcs0
  1251.     }&else{
  1252.         !o1s20「今度のイベントの優勝賞品は何だろう？p;
  1253.         !参加はしないけど気になるんだよな。qcs0
  1254.     }
  1255. #21    !o1s21「猫のことだったら、そこの家の人に聞くといいわよ。qcs0
  1256. #22    &if(%rnd(2)==1){
  1257.         !o1s21「ええとね、燃える砂を投げつけると燃えるの。p;それで、凍る砂を投げつけると凍るの。qcs0
  1258.     }&else{
  1259.         !o1s21「ええとね、パン、薬草、ケレスの葉の順に、カイフクリョクがすごいんだって。qcs0
  1260.     }
  1261. #23    &if(%rnd(2)==1){
  1262.         !o1s21「宝石には『かけら』ってのが多いわね。どうしてかな？qcs0
  1263.     }&else{
  1264.         !o1s21「宝石は宝石屋さんで買い取ってくれるわよ。qcs0
  1265.     }
  1266. #24    &if(Ｂ<60){
  1267.         !o1s21「しー。;p今、かくれんぼ中なんだから、あっち行ってよ。qcs0
  1268.         &manmove 24,-8
  1269.     }&else{
  1270.         !o1s21「ねえ、ねえ、オニゴッコしようよ。qcs0
  1271.     }
  1272. #25    &if(Ｂ<60){
  1273.         !o1s21「今、かくれんぼのオニなの。p;ようし、見つけるぞ。qcs0
  1274.     }&else{
  1275.         !o1s21「この頃、カイパーちゃん遊んでくれないんだ。p;ねえ、遊ばない？qcs0
  1276.     }
  1277. #26    !o1s21「交換屋を覗いてみた？p;いろいろ珍しいものが並んでるわよ。qcs0
  1278. #27    &if(Ａ<20){
  1279.         !o1s20「パンなら、そこの店で売っとるよ。qcs0
  1280.     }&else{
  1281.         &if(%rnd(2)==1){
  1282.             !o1s20「滝の上には風車があるんだ。;pあそこは風が強いんだ。うむ。qcs0
  1283.         }&else{
  1284.             !o1s20「山の上に行くには、洞窟を抜ければいいんだ。うむ。qcs0
  1285.         }
  1286.     }
  1287. #28    !o1b0s0j2パンダ仮面:b5s22j0「パンダ仮面参上！
  1288.     &if(Ａ==65){
  1289.         !p;ムーンダスト？そのことならオールト様、wいや、オールトさんに聞いてみなさい。p;
  1290.         !さらば！pcs0
  1291.         Ａ=68
  1292.         %mandef(28)={$C,2,$E0,%down,1}    //パンダ仮面
  1293.         &on
  1294.         &manmove 28,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
  1295.         %manpoint(28)={200,200}
  1296.         &on
  1297.         &se 10
  1298.         &&
  1299.     }
  1300.     &if(Ａ==110){
  1301.         !p;この国には、時間を操れる方が一人いらっしゃるのだよ。p;
  1302.         !さらば！pcs0
  1303.         Ａ=115
  1304.         %mandef(28)={$C,2,$E0,%down,1}    //パンダ仮面
  1305.         &on
  1306.         &manmove 28,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  1307.         %manpoint(28)={200,200}
  1308.         &on
  1309.         &se 10
  1310.         &&
  1311.     }
  1312.     &if(Ａ==210){
  1313.         !p;知っているかな？ジラーフは、ある青い花の香りが大嫌いなのだ。p;
  1314.         !さらば！pcs0
  1315.         Ａ=220
  1316.         %mandef(28)={$C,2,$E0,%down,1}    //パンダ仮面
  1317.         &on
  1318.         &manmove 28,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
  1319.         %manpoint(28)={200,200}
  1320.         &on
  1321.         &se 10
  1322.         &&
  1323.     }
  1324.     &if(Ｂ==70){
  1325.         &manmove 28,-4,-6,-4,-6
  1326.         !p;・・・・・・。p;
  1327.         &manmove 28,-2,-8,-2
  1328.         !さらば！pcs0
  1329.         Ｂ=80
  1330.         %mandef(28)={$C,2,$C0,%down,1}    //カイパー
  1331.         &on
  1332.         &manmove 28,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  1333.         %manpoint(28)={200,200}
  1334.         &on
  1335.         &se 10
  1336.         !o1b0s0j2|2:b5s20j0「・・・見なかったことに、してやろう。qcs0
  1337.         &&
  1338.     }
  1339.     !p;何か困ったことがあったら、私に相談しなさい。
  1340.     !この正義の味方、パンダ仮面が力になろう！qcs0
  1341.     &manmove 28,-2
  1342. #29    &switch(I){
  1343.     &case 0:
  1344.         !o1b0s0j2うさぎ:b5s20j0「わぁっ！p
  1345.         %mandef(29)={$C,7,$00,%down,1}    //兎
  1346.         &on
  1347.         &manmove 29,-6,-4,-6,-4,2,2,4,4,4,4
  1348.         I=1
  1349.         &break
  1350.     &case 1:
  1351.         !o1b0s0j2|2:b5s20j0「おまえ、クミンだな。p
  1352.         !o1b0s0j2うさぎ:b5s20j0「あーあ。もう見つかっちゃったか。p
  1353.         !o1b0s0j2|2:b5s20j0「この着ぐるみ、さっさと脱がせろ。p
  1354.         !o1b0s0j2うさぎ:b5s20j0「分かったよ。でも、僕の家に戻らないと脱がせられないんだ。p
  1355.         !o1b0s0j2|4:b5s20j0「そう言って、また逃げるんじゃないのか？p
  1356.         !o1b0s0j2うさぎ:b5s20j0「もう、逃げたりしないよ。信じてよ。p;それじゃあ、僕の家でね。qcs0
  1357.         クミン=2
  1358.         I=2
  1359.     &case 2:
  1360.         !o1b0s0j2うさぎ:b5s20j0「じゃあ、僕の家でね。qcs0
  1361.     }
  1362.  
  1363. #@0    &if(%direc<0){
  1364.         &se 13
  1365.         &goto2 フィールド,@23,%down
  1366.     }
  1367. #@1    &if(%direc<0){
  1368.         &se 13
  1369.         &goto 城
  1370.     }
  1371. #@10    &if(%direc<0){
  1372.         %manpoint(9)={5,14}
  1373.         &on
  1374.         &pcm 1
  1375.         &goto2 町＿中,@30,%up
  1376.     }
  1377. #@11    &if(%direc<0){
  1378.         %manpoint(9)={18,20}
  1379.         &on
  1380.         &pcm 1
  1381.         &goto2 町＿中,@31,%up
  1382.     }
  1383. #@12    &if(%direc<0){
  1384.         %manpoint(9)={38,26}
  1385.         &on
  1386.         &pcm 1
  1387.         &goto2 町＿中,@32,%up
  1388.     }
  1389. #@13    &if(%direc<0){
  1390.         %manpoint(9)={8,43}
  1391.         &on
  1392.         &pcm 1
  1393.         &goto2 町＿中,@33,%up
  1394.     }
  1395. #@14    &if(%direc<0){
  1396.         %manpoint(9)={27,43}
  1397.         &on
  1398.         &pcm 1
  1399.         &goto2 町＿中,@34,%up
  1400.     }
  1401. #@15    &if(%direc<0){
  1402.         %manpoint(9)={68,18}
  1403.         &on
  1404.         &pcm 1
  1405.         &goto2 町＿中,@35,%up
  1406.     }
  1407. #@16    &if(%direc<0){
  1408.         %manpoint(9)={85,20}
  1409.         &on
  1410.         &pcm 1
  1411.         &goto2 町＿中,@36,%up
  1412.     }
  1413. #@17    &if(%direc<0){
  1414.         %manpoint(9)={55,29}
  1415.         &on
  1416.         &pcm 1
  1417.         &goto2 町＿中,@37,%up
  1418.     }
  1419. #@18    &if(%direc<0){
  1420.         %manpoint(9)={64,44}
  1421.         &on
  1422.         &pcm 1
  1423.         &goto2 町＿中,@38,%up
  1424.     }
  1425. #@19    &if(%direc<0){
  1426.         %manpoint(9)={82,42}
  1427.         &on
  1428.         &pcm 1
  1429.         &goto2 町＿中,@39,%up
  1430.     }
  1431. #@20    &if(%direc<0){
  1432.         %manpoint(9)={10,66}
  1433.         &on
  1434.         &pcm 1
  1435.         &goto2 町＿中,@40,%up
  1436.     }
  1437. #@21    &if(%direc<0){
  1438.         %manpoint(9)={31,64}
  1439.         &on
  1440.         &pcm 1
  1441.         &goto2 町＿中,@41,%up
  1442.     }
  1443. #@22    &if(%direc<0){
  1444.         %manpoint(9)={34,80}
  1445.         &on
  1446.         &pcm 1
  1447.         &goto2 町＿中,@42,%up
  1448.     }
  1449. #@23    &if(%direc<0){
  1450.         %manpoint(9)={9,91}
  1451.         &on
  1452.         &pcm 1
  1453.         &goto2 町＿中,@43,%up
  1454.     }
  1455. #@25    &if(%direc<0){
  1456.         %manpoint(9)={62,66}
  1457.         &on
  1458.         &pcm 1
  1459.         &goto2 町＿中,@45,%up
  1460.     }
  1461. #@26    &if(%direc<0){
  1462.         %manpoint(9)={80,66}
  1463.         &on
  1464.         &pcm 1
  1465.         &goto2 町＿中,@46,%up
  1466.     }
  1467. #@27    &if(%direc<0){
  1468.         %manpoint(9)={64,87}
  1469.         &on
  1470.         &pcm 1
  1471.         &goto2 町＿中,@47,%up
  1472.     }
  1473. #@29    &if(%direc<0){
  1474.         %manpoint(9)={86,86}
  1475.         &on
  1476.         &pcm 1
  1477.         &goto2 町＿中,@49,%up
  1478.     }
  1479. #@30    &if(%direc<0){
  1480.         &se 13
  1481.         &goto2 フィールド,@24,%down
  1482.     }
  1483. #@31    &if(%direc<0){
  1484.         &se 13
  1485.         &goto2 フィールド,@25,%down
  1486.     }
  1487.  
  1488.  
  1489. //-------------------------------------------------------------------
  1490. [町＿中]
  1491. //-------------------------------------------------------------------
  1492.     &mapsp SPP\MATI_I.SPP
  1493.     &mappal PAL\MATI_I.PAL
  1494.     &map MAP\MATI_I.MAP
  1495.     &partyspeed 1
  1496.  
  1497.     %mandef(1)={$E,7,$EC,%down,0}    //暖炉
  1498.     %mandef(2)={$E,7,$EC,%down,0}    //暖炉
  1499.     %mandef(3)={$E,7,$EC,%down,0}    //暖炉
  1500.     %mandef(4)={$E,7,$EC,%down,0}    //暖炉
  1501.     %mandef(5)={$E,7,$EC,%down,0}    //暖炉
  1502.     %mandef(6)={$E,7,$EC,%down,0}    //暖炉
  1503.     %mandef(7)={$E,7,$EC,%down,0}    //暖炉
  1504.     %mandef(8)={$E,7,$EC,%down,0}    //暖炉
  1505.     %mandef(9)={$E,7,$EC,%down,0}    //暖炉
  1506.     %mandef(10)={$F,4,$E0,%down,4}    //商人女
  1507.     %mandef(11)={$D,4,$00,%down,3}    //町男２
  1508.     %mandef(12)={$D,4,$20,%down,3}    //町女２
  1509.     %mandef(13)={$A,4,$40,%down,3}    //町老男
  1510.     %mandef(14)={$A,4,$60,%up,3}    //町老女
  1511.     %mandef(15)={$A,3,$C0,%up,-1}    //町男１
  1512.     %mandef(16)={$A,4,$60,%down,2}    //町老女
  1513.     %mandef(17)={$F,4,$E0,%down,3}    //商人女
  1514.     %mandef(18)={$D,4,$00,%up,0}    //町男２
  1515.     %mandef(19)={$A,4,$40,%up,0}    //町老男
  1516.     %mandef(20)={$F,7,$60,%up,0}    //ガーベッジ
  1517.     %mandef(21)={$A,3,$E0,%up,0}    //町女１
  1518.     %mandef(22)={$F,4,$C0,%down,0}    //商人男
  1519.     %mandef(23)={$F,4,$C0,%down,2}    //商人男
  1520.     %mandef(24)={$F,4,$E0,%down,0}    //商人女
  1521.     %mandef(25)={$A,3,$E0,%down,3}    //町女１
  1522.     %mandef(26)={$D,4,$20,%down,2}    //町女２
  1523.     %mandef(27)={$F,4,$E0,%down,0}    //商人女
  1524.     %mandef(28)={$F,4,$C0,%down,2}    //商人男
  1525.     %mandef(29)={$A,3,$E0,%down,2}    //町女１
  1526.     %mandef(30)={$F,4,$C0,%down,3}    //商人男
  1527.     %mandef(31)={$A,3,$E0,%down,0}    //町女１
  1528.     %mandef(32)={$A,3,$C0,%down,3}    //町男１
  1529.     %mandef(34)={$F,1,$C9,%down,-1}    //ピアノ（左）
  1530.     %mandef(35)={$F,1,$CD,%down,-1}    //ピアノ（右）
  1531.     %mandef(36)={$C,6,$E0,%down,2}    //黒猫
  1532.     %mandef(37)={$C,6,$E0,%down,1}    //黒猫
  1533.     &if(鉄鍋==1){
  1534.         %mandef(33)={$E,1,$CB,%down,-1}    //宝箱（開）
  1535.     }&else{
  1536.         %mandef(33)={$E,1,$CA,%down,-1}    //宝箱（閉）
  1537.     }
  1538.     &if(Ａ>=65 and Ａ<140){
  1539.         %mandef(38)={$D,5,$E0,%down,2}    //盗賊
  1540.     }
  1541.     &if(Ａ>=255){
  1542.         %mandef(38)={$E,7,$40,%down,2}    //セイロン
  1543.     }
  1544.     &if(宝05==0){
  1545.         %mandef(39)={$E,1,$CA,%down,-1}    //宝箱（閉）
  1546.     }&else{
  1547.         %mandef(39)={$E,1,$CB,%down,-1}    //宝箱（開）
  1548.     }
  1549.     &if(Ａ<65 or Ａ>=180 and Ａ<255){
  1550.         %manpoint(20)={200,200}
  1551.     }
  1552.     &on
  1553.  
  1554. #1
  1555. #2
  1556. #3
  1557. #4
  1558. #5
  1559. #6
  1560. #7
  1561. #8
  1562. #9
  1563. #10    !o1s21「いらっしゃいませ。;
  1564.     !一泊５０Ｇです。お泊まりになりますか？g;
  1565.     &se 2
  1566.     %selectlist={泊まる,旅の記録,やめる}
  1567.     &switch(%select){
  1568.     &default:
  1569.         &break
  1570.     &case 0:
  1571.         &if(%gold<50){
  1572.             !お金が足りないようですね。qcs0
  1573.             &&
  1574.         }
  1575.         %gold=%gold-50
  1576.         &jsr 宿
  1577.         &link 100
  1578.     &case 1:
  1579.         !旅の記録ですね。p
  1580.         %partynamedef(0)=パーセクの町
  1581.         &save 100,40,9,-%up
  1582.         !o1s21「
  1583.     }
  1584.     !それでは、お気をつけて。qcs0
  1585. #11    !o1s20「僕は鳥に関する物を集めてるんだけど、何か持ってないかい？p;
  1586.     !２つとだったら、虹のクリスタルと取り替えてもいいよ。p;
  1587.     &if(%haveitem(くじゃく石)==1 and %haveitem(金の風見鳥)==1){
  1588.         !あれ、持ってるじゃない。;そう、それ。くじゃく石と金の風見鳥だよ。;
  1589.         !虹のクリスタルと取り替えないかい？
  1590.         &if(%inkeyn==0){
  1591.             !;やったあ。ありがとう。p
  1592.             &partyitemout くじゃく石
  1593.             &partyitemout 金の風見鳥
  1594.             &partyitemin 虹のクリスタル
  1595.             !o1s0j2i(くじゃく石)j0を渡した！:
  1596.             !j2i(金の風見鳥)j0を渡した！:
  1597.             !j2i(虹のクリスタル)j0を手に入れた！qcs0
  1598.         }&else{
  1599.             !;そう。残念だな。気が変わったらまた来てよ。qcs0
  1600.         }
  1601.         &&
  1602.     }
  1603.     &if(%haveitem(くじゃく石)==1 or %haveitem(金の風見鳥)==1){
  1604.         !１つだけ持ってるね。あと１つあれば、取り替えるよ。qcs0
  1605.     }&else{
  1606.         !鳥の名前が付いてるだけでいいんだけどな。qcs0
  1607.     }
  1608. #12    &if(Ａ<290){
  1609.         !o1s21「この間の地震、西の方では凄かったらしいわよ。
  1610.         !滝の辺りが震源だったのかな？p;え、知らなかったの？qcs0
  1611.     }&else{
  1612.         !o1s21「最近、モンスターが狂暴化したと思わない？p;気のせいかなぁ。qcs0
  1613.     }
  1614. #13    &if(Ａ<290){
  1615.         !o1s20「オールト様はわしが子供の頃は町に降りてきて、
  1616.         !よく遊んでもらったものじゃ。p;今はカイパーさんがよく町に来るの。qcs0
  1617.     }&else{
  1618.         !o1s20「オールト様は３００歳を越えてるという者もおるが、本当じゃろか？qcs0
  1619.     }
  1620. #14    &if(Ａ<290){
  1621.         !o1s21「山の上の白い大木に住んどる、オールトさんのことは知っとるかい？p;
  1622.         !不思議なお人じゃ。一緒に住んどるカイパーさんも不思議じゃ。p;
  1623.         !あんたらは、もっと不思議じゃがの。qcs0
  1624.     }&else{
  1625.         !o1s21「カイパーさんが言うには、なんでも、オールト様の周りは時間がゆっくり流れてんだそうな。qcs0
  1626.     }
  1627. #15    !o1s20「グ～～～。ガ～～～。;グ～～～。ガ～～～。p
  1628.     !o1b0s0j2|2:b5s20j0「こいつ、立ったまま寝てるぞ。器用なヤツ。
  1629.     &if(%haveitem(おもちゃのラッパ)==1 and Ｂ<=30){
  1630.         !p;ちょっと、起こしてみるか？p
  1631.         !o1s0おもちゃのラッパを使いますか？
  1632.         &if(%inkeyn==0){
  1633.             !:おもちゃのラッパを力一杯吹いた。p
  1634.             &pcm 7
  1635.             %manpoint(15)={5,4}
  1636.             &on
  1637.             &wait 10
  1638.             %mandef(15)={$A,3,$C0,%up,0}    //町男１
  1639.             %manpoint(15)={5,5}
  1640.             &on
  1641.             !o1s20「うわっ！！びっくりしたぁ！
  1642.             &manmove 15,-2,-4,-6,-4,-2
  1643.             !p;あれ、君達・・・。p;
  1644.             !今、見てた夢に出てきたよ。夢の中で、僕は君達に、こう言うんだ。p;
  1645.             !『王様の部屋の暖炉を調べろ』;って。p;あれ、なんでだろうな？
  1646.             Ｂ=30
  1647.             &manmove 15,-8
  1648.             %mandef(15)={$A,3,$C0,%up,-1}    //町男１
  1649.             &on
  1650.         }
  1651.     }
  1652.     !qcs0
  1653. #16    !o1s21「うちの猫ちゃん達、かわいいでしょう。
  1654.     &if(Ｂ==40){
  1655.         !p;え、何？猫ちゃんの名前？p;
  1656.         !名前だったら、首輪を見れば判るわよ。p;
  1657.         !o1b0s0j2|2:b5s20j0「よし、首輪を見れば判るんだな。p
  1658.         !o1s21「うちの猫ちゃんは、こっちがレンチで、そっちがモンゴよ。
  1659.         Ｂ=50
  1660.     }
  1661.     !qcs0
  1662. #17    &if(洗濯==2){
  1663.         !o1s21「出来てるわよ。はい、どうぞ。p
  1664.         &if(%rasthaveitem>0){
  1665.             &partyitemin そよ風のマント
  1666.             !o1s0j2i(そよ風のマント)j0を手に入れた！p
  1667.             !o1s21「洗ったら、立派なマントになったわね。感謝しなさい。qcs0
  1668.             洗濯=3
  1669.         }&else{
  1670.             &pcm 18
  1671.             !o1b2s0j1これ以上持てません！j0b5p
  1672.             !o1s21「あら、持ち物が一杯なのね。ちゃんと、整理してから来なさい。qcs0
  1673.         }
  1674.         &&
  1675.     }
  1676.     &if(洗濯==1){
  1677.         !o1s21「明日になったら、取りに来なさい。qcs0
  1678.         &&
  1679.     }
  1680.     &if(宝15==1 and 洗濯==0){
  1681.         &if(%haveitem(すすけたマント)==1){
  1682.             !o1s21「その汚いマント、あずけなさい。私が、洗っておいてあげるから。
  1683.             &if(%inkeyn==0){
  1684.                 洗濯=1
  1685.                 &partyitemout すすけたマント
  1686.                 !o1s0j2i(すすけたマント)j0を渡した！p
  1687.                 !o1s21「そうね、明日までには綺麗にしておいてあげるわ。qcs0
  1688.             }&else{
  1689.                 !o1s21「ちょっと、人の厚意を無駄にするもんじゃないわよ。qcs0
  1690.             }
  1691.         }&else{
  1692.             !o1s21「ちょっと、その着てるマント脱ぎなさい。洗ってあげるから。qcs0
  1693.         }
  1694.         &&
  1695.     }
  1696.     !o1s21「あなた達、まさか、お酒は飲まないわよね。qcs0
  1697. #18    &switch(%nowbgm){
  1698.     &default:
  1699.         !o1s20「僕、星に興味があるんだ。ホロさんの弟子になろうかな。qcs0
  1700.     &case 42:
  1701.         !o1s20「遺跡に住んでた人々は自分達を『星の民』と呼んでたんだ。p;
  1702.         !・・・と、ホロさんに聞いた。qcs0
  1703.     &case 43:
  1704.         !o1s20「古の世界は、東の水の青竜、西の風の白竜、南の火の赤竜、北の地の黒竜の
  1705.         !４匹の聖竜が各地を治めていた。p;・・・と、ジオットさんは言ってた。qcs0
  1706.     }
  1707.     &manmove 18,-8
  1708. #19    &switch(%nowbgm){
  1709.     &default:
  1710.         !o1s20「魔力回復にはシルバーリーフだ。p;わしには関係ないがな。qcs0
  1711.     &case 42:
  1712.         !o1s20「ケレスには、着ぐるみ師というのがいるらしいな。p;
  1713.         !よく判らんが・・・。qcs0
  1714.     &case 43:
  1715.         !o1s20「世の中には、姿を見えなくできるモンスターもいるらしい。p;
  1716.         !ジラーフとか言ったかな。よく知らんが・・・。qcs0
  1717.     }
  1718.     &manmove 19,-8
  1719. #20    &if(Ａ>=65 and Ａ<140){
  1720.         !o1b0s0j2ガーベッジ:b5s20j0「ウ～、ヒック。フラーレンの篭なんて、誰も知らねえ。p;
  1721.         !もう、諦めた。ヒック。qcs0
  1722.     }
  1723.     &if(Ａ>=140 and Ａ<180){
  1724.         !o1b0s0j2ガーベッジ:b5s20j0「次のイベントは明日発表か。p;
  1725.         !種目は何だろうな？qcs0
  1726.     }
  1727.     &if(Ａ>=255){
  1728.         !o1b0s0j2ガーベッジ:b5s20j0「うお～！p;
  1729.         !次はオレが絶対優勝してやるぞ～。qcs0
  1730.     }
  1731.     &manmove 20,-8
  1732. #21    &if(%haveitem(鳴らない笛)==1){
  1733.         !o1s21「あら、その笛・・・。ちょっと、見せてくれない？p
  1734.         !o1s0j2i(鳴らない笛)j0を渡した！p
  1735.         !o1s21「壊れてるけど、いい笛ね。良かったら、貰えないかしら？
  1736.         &if(%inkeyn==0){
  1737.             !;ありがとう。代わりといっては何だけど、これ貰って。p
  1738.             !o1s0j2i(フラワークラウン)j0を手に入れた！
  1739.             &partyitemout 鳴らない笛
  1740.             &partyitemin フラワークラウン
  1741.             !qcs0
  1742.         }&else{
  1743.             !o1s21「そう、残念。p
  1744.             !o1s0j2i(鳴らない笛)j0を手に入れた！qcs0
  1745.         }
  1746.     }&else{
  1747.         !o1s21「何か弾きましょうか？
  1748.         &if(%inkeyn==0){
  1749.             !;選曲は任せてね。qcs0
  1750.             &if(%nowbgm==43){
  1751.                 &bgm 42
  1752.             }&else{
  1753.                 &bgm 43
  1754.             }
  1755.         }&else{
  1756.             !;じゃあ、また今度ね。qcs0
  1757.         }
  1758.     }
  1759.     &manmove 21,-8
  1760. #22    !o1s20「ここは交換所だよ。;何か欲しい物はあるかい？;
  1761.     %selectlist={石の剣,最高級鉄鍋,金の風見鳥,金のティアラ,ゴールドリーフ}
  1762.     &label
  1763.     &se 2
  1764.     &switch(%select){
  1765.     &default:
  1766.         !c
  1767.         &break
  1768.     &case 0:
  1769.         &if(石の剣交換==1){
  1770.             !ごめん、石の剣はもう売り切れなんだ。p
  1771.             !o1s20「他に欲しい物は？;
  1772.             &jmp @b
  1773.         }
  1774.         !石の剣は虹のクリスタルとの交換だよ。;いいかい？
  1775.         &if(%inkeyn==0){
  1776.             &if(%haveitem(虹のクリスタル)){
  1777.                 石の剣交換=1
  1778.                 &partyitemout 虹のクリスタル
  1779.                 &partyitemin 石の剣
  1780.                 !;まいどあり。p
  1781.                 !o1s0j2i(虹のクリスタル)j0を渡した！:
  1782.                 !j2i(石の剣)j0を手に入れた！p
  1783.             }&else{
  1784.                 !;交換する物を揃えてから来てくれよな。p
  1785.             }
  1786.         }
  1787.         !o1s20「他に欲しい物は？;
  1788.         &jmp @b
  1789.     &case 1:
  1790.         !最高級鉄鍋は緑宝石と燃える砂との交換だよ。;いいかい？
  1791.         &if(%inkeyn==0){
  1792.             &if(%haveitem(緑宝石)*%haveitem(燃える砂)){
  1793.                 &partyitemout 緑宝石
  1794.                 &partyitemout 燃える砂
  1795.                 &partyitemin 最高級鉄鍋
  1796.                 !;まいどあり。p
  1797.                 !o1s0j2i(緑宝石)j0を渡した！:
  1798.                 !j2i(燃える砂)j0を渡した！:
  1799.                 !j2i(最高級鉄鍋)j0を手に入れた！p
  1800.             }&else{
  1801.                 !;交換する物を揃えてから来てくれよな。p
  1802.             }
  1803.         }
  1804.         !o1s20「他に欲しい物は？;
  1805.         &jmp @b
  1806.     &case 2:
  1807.         !金の風見鳥は夢のかけらとの交換だよ。;いいかい？
  1808.         &if(%inkeyn==0){
  1809.             &if(%haveitem(夢のかけら)){
  1810.                 &partyitemout 夢のかけら
  1811.                 &partyitemin 金の風見鳥
  1812.                 !;まいどあり。p
  1813.                 !o1s0j2i(夢のかけら)j0を渡した！:
  1814.                 !j2i(金の風見鳥)j0を手に入れた！p
  1815.             }&else{
  1816.                 !;交換する物を揃えてから来てくれよな。p
  1817.             }
  1818.         }
  1819.         !o1s20「他に欲しい物は？;
  1820.         &jmp @b
  1821.     &case 3:
  1822.         !金のティアラは月のかけらとフラワークラウンとの交換だよ。;いいかい？
  1823.         &if(%inkeyn==0){
  1824.             &if(%haveitem(月のかけら)*%haveitem(フラワークラウン)){
  1825.                 &partyitemout 月のかけら
  1826.                 &partyitemout フラワークラウン
  1827.                 &partyitemin 金のティアラ
  1828.                 !;まいどあり。p
  1829.                 !o1s0j2i(月のかけら)j0を渡した！:
  1830.                 !j2i(フラワークラウン)j0を渡した！:
  1831.                 !j2i(金のティアラ)j0を手に入れた！p
  1832.             }&else{
  1833.                 !;交換する物を揃えてから来てくれよな。p
  1834.             }
  1835.         }
  1836.         !o1s20「他に欲しい物は？;
  1837.         &jmp @b
  1838.     &case 4:
  1839.         !ゴールドリーフはシルバーリーフと凍る砂との交換だよ。;いいかい？
  1840.         &if(%inkeyn==0){
  1841.             &if(%haveitem(シルバーリーフ)*%haveitem(凍る砂)){
  1842.                 &partyitemout シルバーリーフ
  1843.                 &partyitemout 凍る砂
  1844.                 &partyitemin ゴールドリーフ
  1845.                 !;まいどあり。p
  1846.                 !o1s0j2i(シルバーリーフ)j0を渡した！:
  1847.                 !j2i(凍る砂)j0を渡した！:
  1848.                 !j2i(ゴールドリーフ)j0を手に入れた！p
  1849.             }&else{
  1850.                 !;交換する物を揃えてから来てくれよな。p
  1851.             }
  1852.         }
  1853.         !o1s20「他に欲しい物は？;
  1854.         &jmp @b
  1855.     }
  1856.     !o1s20「ありがとう。またどうぞ。qcs0
  1857. #23    !o1s20「いらっしゃいませ。
  1858.     %shoplist={兵士の短剣,兵士の槍,鎖かたびら,兵士の鎧,木の盾,兵士の盾,兵士の兜}
  1859.     I=20
  1860.     &jsr 店
  1861.     !o1s20「ありがとうございました。qcs0
  1862. #24    &if(鉄鍋==1){
  1863.         !o1s21「はあ・・・。p;あら、鉄鍋の人達・・・。p;
  1864.         !最高級鉄鍋を使っても、料理の腕が上がる訳ではないのよね。
  1865.         !はあ・・・。qcs0
  1866.     }&else{
  1867.         !o1s21「ああ、交換所にある最高級鉄鍋が欲しいわぁ。p;
  1868.         !あの鉄鍋があれば、私の料理ももっと美味しくなるのに・・・。
  1869.         &if(%haveitem(最高級鉄鍋)==1){
  1870.             !p;あら、その鉄鍋・・・。p
  1871.             &manmove 24,-8
  1872.             %mandef(33)={$E,1,$CB,%down,-1}    //宝箱（開）
  1873.             &se 31
  1874.             &on
  1875.             &manmove 24,-2
  1876.             !o1s21「この剣と交換しません？
  1877.             &if(%inkeyn==0){
  1878.                 !o1s21「本当に？ありがとう。p
  1879.                 &partyitemout 最高級鉄鍋
  1880.                 &partyitemin 獅子王の黒刀
  1881.                 !o1s0j2i(最高級鉄鍋)j0を渡した！:
  1882.                 !j2i(獅子王の黒刀)j0を手に入れた！
  1883.                 鉄鍋=1
  1884.             }&else{
  1885.                 %mandef(33)={$E,1,$CA,%down,-1}    //宝箱（閉）
  1886.                 &on
  1887.                 !o1s21「そうよね。突然、変なことを言って、ごめんなさいね。
  1888.             }
  1889.         }
  1890.         !qcs0
  1891.     }
  1892.     &manmove 24,-2
  1893. #25    !o1s21「遺跡がどこにあるか知ってるわよね？
  1894.     &if(%inkeyn==0){
  1895.         !;ああ、知らないはずないわよね。qcs0
  1896.     }&else{
  1897.         !;あら、知らなかったの。p;この町の南の海の中。海岸から見えるわよ。qcs0
  1898.     }
  1899. #26    !o1s21「町の入口にある聖なる炎は、古の灯台からとってくるのよ。p;
  1900.     !灯台の場所は知ってるわね。研究所の南。qcs0
  1901. #27    !o1s21「ここは交換所です。;交換したい物はありますか？;
  1902.     %selectlist={シルバーリーフ,１ペソ銀貨,白銀の腕輪,銀葉の杖,銀の歯車}
  1903.     &label
  1904.     &se 2
  1905.     &switch(%select){
  1906.     &default:
  1907.         !c
  1908.         &break
  1909.     &case 0:
  1910.         !シルバーリーフはパンと薬草とケレスの葉との交換です。;よろしいですか？
  1911.         &if(%inkeyn==0){
  1912.             &if(%haveitem(パン)*%haveitem(薬草)*%haveitem(ケレスの葉)){
  1913.                 &partyitemout パン
  1914.                 &partyitemout 薬草
  1915.                 &partyitemout ケレスの葉
  1916.                 &partyitemin シルバーリーフ
  1917.                 !;ありがとうございます。p
  1918.                 !o1s0j2i(パン)j0を渡した！:
  1919.                 !j2i(薬草)j0を渡した！:
  1920.                 !j2i(ケレスの葉)j0を渡した！:
  1921.                 !j2i(シルバーリーフ)j0を手に入れた！p
  1922.             }&else{
  1923.                 !;交換する物が揃ってないみたいですね。揃えてからまた来てください。p
  1924.             }
  1925.         }
  1926.         !o1s21「他に欲しい物はありますか？;
  1927.         &jmp @b
  1928.     &case 1:
  1929.         !１ペソ銀貨はガラスのかけらとゆのみのかけらとの交換です。;よろしいですか？
  1930.         &if(%inkeyn==0){
  1931.             &if(%haveitem(ガラスのかけら)*%haveitem(ゆのみのかけら)){
  1932.                 &partyitemout ガラスのかけら
  1933.                 &partyitemout ゆのみのかけら
  1934.                 &partyitemin １ペソ銀貨
  1935.                 !;ありがとうございます。p
  1936.                 !o1s0j2i(ガラスのかけら)j0を渡した！:
  1937.                 !j2i(ゆのみのかけら)j0を渡した！:
  1938.                 !j2i(１ペソ銀貨)j0を手に入れた！p
  1939.             }&else{
  1940.                 !;交換する物が揃ってないみたいですね。揃えてからまた来てください。p
  1941.             }
  1942.         }
  1943.         !o1s21「他に欲しい物はありますか？;
  1944.         &jmp @b
  1945.     &case 2:
  1946.         !銀葉の杖は魔導士の杖と星のかけらとの交換です。;よろしいですか？
  1947.         &if(%inkeyn==0){
  1948.             &if(%haveitem(魔導士の杖)*%haveitem(星のかけら)){
  1949.                 &partyitemout 魔導士の杖
  1950.                 &partyitemout 星のかけら
  1951.                 &partyitemin 銀葉の杖
  1952.                 !;ありがとうございます。p
  1953.                 !o1s0j2i(魔導士の杖)j0を渡した！:
  1954.                 !j2i(星のかけら)j0を渡した！:
  1955.                 !j2i(銀葉の杖)j0を手に入れた！p
  1956.             }&else{
  1957.                 !;交換する物が揃ってないみたいですね。揃えてからまた来てください。p
  1958.             }
  1959.         }
  1960.         !o1s21「他に欲しい物はありますか？;
  1961.         &jmp @b
  1962.     &case 3:
  1963.         !白銀の腕輪は勇気のかけらと炎心の指輪との交換です。;よろしいですか？
  1964.         &if(%inkeyn==0){
  1965.             &if(%haveitem(勇気のかけら)*%haveitem(炎心の指輪)){
  1966.                 &partyitemout 勇気のかけら
  1967.                 &partyitemout 炎心の指輪
  1968.                 &partyitemin 白銀の腕輪
  1969.                 !;ありがとうございます。p
  1970.                 !o1s0j2i(勇気のかけら)j0を渡した！:
  1971.                 !j2i(炎心の指輪)j0を渡した！:
  1972.                 !j2i(白銀の腕輪)j0を手に入れた！p
  1973.             }&else{
  1974.                 !;交換する物が揃ってないみたいですね。揃えてからまた来てください。p
  1975.             }
  1976.         }
  1977.         !o1s21「他に欲しい物はありますか？;
  1978.         &jmp @b
  1979.     &case 4:
  1980.         !銀の歯車は獅子王の黒刀との交換です。;よろしいですか？
  1981.         &if(%inkeyn==0){
  1982.             &if(%haveitem(獅子王の黒刀)){
  1983.                 &partyitemout 獅子王の黒刀
  1984.                 &partyitemin 銀の歯車
  1985.                 !;ありがとうございます。p
  1986.                 !o1s0j2i(獅子王の黒刀)j0を渡した！:
  1987.                 !j2i(銀の歯車)j0を手に入れた！p
  1988.             }&else{
  1989.                 !;交換する物が揃ってないみたいですね。揃えてからまた来てください。p
  1990.             }
  1991.         }
  1992.         !o1s21「他に欲しい物はありますか？;
  1993.         &jmp @b
  1994.     }
  1995.     !o1s21「またどうぞ。qcs0
  1996. #28    !o1s20「いらっしゃいませ。
  1997.     %shoplist={パン,薬草,果物ナイフ,絹のケープ,凍る砂,燃える砂}
  1998.     I=20
  1999.     &jsr 店
  2000.     !o1s20「またどうぞ。qcs0
  2001. #29    &if(%rnd(2)==1){
  2002.         !o1s21「城や灯台の壁にドラゴンのレリーフがあるでしょ。p;
  2003.         !大昔はこの国にもドラゴンがいて、町を守ってくれてたんですって。qcs0
  2004.     }&else{
  2005.         !o1s21「ドラゴンって見たことある？見てみたいなぁ。p;
  2006.         !今もどこかにいるのかなぁ。qcs0
  2007.     }
  2008. #30    !o1s20「まいど。ここは宝石屋だよ。ご用は何かな？
  2009.     &label
  2010.     %selectlist={買う,売る,やめる}
  2011.     &se 2
  2012.     &switch(%select){
  2013.     &default:
  2014.         &break
  2015.     &case 0:
  2016.         &jsr 宝石買う
  2017.         &jmp @b
  2018.     &case 1:
  2019.         &if(%gold==25600){
  2020.             &pcm 18
  2021.             !o1s0b2j1これ以上お金を持てません！j0pb5
  2022.             !o1s20「他にご用はあるかい？pc
  2023.             &jmp @b
  2024.         }
  2025.         &jsr 宝石売る
  2026.         &jmp @b
  2027.     }
  2028.     !o1s20「またどうぞ。qcs0
  2029. #31    !o1s21「遺跡に住んでた先人達は、自由に空を飛び回れたって噂、本当なのかな？qcs0
  2030.     &manmove 31,-2
  2031. #32    !o1s20「突然ですが、クイズです。説明を聞きますか？
  2032.     &if(%inkeyn==0){
  2033.         !;これから、この国についてのクイズを出題します。p;
  2034.         !全部で５問。１問につき、答える権利は２回まで。p;
  2035.         !正解すれば、賞品が貰えますが、不正解の場合は、５００Ｇ頂きます。p
  2036.         !g
  2037.     }
  2038.     !;どうします、やりますか？
  2039.     &if(%inkeyn==0){
  2040.         &if(%gold<500){
  2041.             !;おや、お客さん困りますね。５００Ｇ払えないと、参加出来ませんよ。qcs0
  2042.             &&
  2043.         }
  2044.         &if(%rasthaveitem<=0){
  2045.             !;おや、お客さん、持ち物が一杯のようですね。p;
  2046.             !それでは、当たっても賞品が持てませんよ。qcs0
  2047.             &&
  2048.         }
  2049.         &switch(クイズ){
  2050.         &default:
  2051.             !;君達、もう５問終わったでしょう。もう問題はありませんよ。qcs0
  2052.             &break
  2053.         &case 1:
  2054.             !第１問。１回目の挑戦！p;
  2055.             &pcm 31
  2056.             !問題。ケレスの葉の値段＋パンの値段－木の盾の値段＝？
  2057.             &label
  2058.             &se 2
  2059.             %selsectlist={４０Ｇ,６０Ｇ,７０Ｇ}
  2060.             &switch(%select){
  2061.             &default:
  2062.                 &jmp @b
  2063.             &case 0:
  2064.                 クイズ=2
  2065.                 &jsr 不正解１
  2066.                 &break
  2067.             &case 1:
  2068.                 クイズ=3
  2069.                 &pcm 32
  2070.                 !;正解です！p;
  2071.                 !この問題の賞品は・・・、p;
  2072.                 !シルバーリーフです。どうぞ。p
  2073.                 !o1s0j2i(シルバーリーフ)j0を手に入れた！p
  2074.                 !o1s20「おめでとうございました。qcs0
  2075.                 &break
  2076.             &case 2:
  2077.                 クイズ=2
  2078.                 &jsr 不正解１
  2079.                 &break
  2080.             }
  2081.             &break
  2082.         &case 2:
  2083.             !第１問。２回目の挑戦！p;
  2084.             &pcm 31
  2085.             !問題。ケレスの葉の値段＋パンの値段－木の盾の値段＝？
  2086.             クイズ=3
  2087.             &label
  2088.             &se 2
  2089.             %selsectlist={４０Ｇ,６０Ｇ,７０Ｇ}
  2090.             &switch(%select){
  2091.             &default:
  2092.                 &jmp @b
  2093.             &case 0:
  2094.                 &jsr 不正解２
  2095.                 &break
  2096.             &case 1:
  2097.                 &pcm 32
  2098.                 !;正解です！p;
  2099.                 !この問題の賞品は・・・、p;
  2100.                 !シルバーリーフです。どうぞ。p
  2101.                 !o1s0j2i(シルバーリーフ)j0を手に入れた！p
  2102.                 !o1s20「おめでとうございました。qcs0
  2103.                 &break
  2104.             &case 2:
  2105.                 &jsr 不正解２
  2106.                 &break
  2107.             }
  2108.             &break
  2109.         &case 3:
  2110.             !第２問。１回目の挑戦！p;
  2111.             &pcm 31
  2112.             !問題。パーセクの町とケレスの村、建っている建物を合わせた総数は？
  2113.             &label
  2114.             &se 2
  2115.             %selsectlist={２２戸,２３戸,２４戸,２５戸}
  2116.             &switch(%select){
  2117.             &default:
  2118.                 &jmp @b
  2119.             &case 0:
  2120.                 クイズ=4
  2121.                 &jsr 不正解１
  2122.                 &break
  2123.             &case 1:
  2124.                 クイズ=4
  2125.                 &jsr 不正解１
  2126.                 &break
  2127.             &case 2:
  2128.                 クイズ=4
  2129.                 &jsr 不正解１
  2130.                 &break
  2131.             &case 3:
  2132.                 クイズ=5
  2133.                 &pcm 32
  2134.                 !;正解です！p;
  2135.                 !この問題の賞品は・・・、p;
  2136.                 !ゴールドリーフです。どうぞ。p
  2137.                 !o1s0j2i(ゴールドリーフ)j0を手に入れた！p
  2138.                 !o1s20「おめでとうございました。qcs0
  2139.                 &break
  2140.             }
  2141.             &break
  2142.         &case 4:
  2143.             !第２問。２回目の挑戦！p;
  2144.             &pcm 31
  2145.             !問題。パーセクの町とケレスの村、建っている建物を合わせた総数は？
  2146.             クイズ=5
  2147.             &label
  2148.             &se 2
  2149.             %selsectlist={２２戸,２３戸,２４戸,２５戸}
  2150.             &switch(%select){
  2151.             &default:
  2152.                 &jmp @b
  2153.             &case 0:
  2154.                 &jsr 不正解２
  2155.                 &break
  2156.             &case 1:
  2157.                 &jsr 不正解２
  2158.                 &break
  2159.             &case 2:
  2160.                 &jsr 不正解２
  2161.                 &break
  2162.             &case 3:
  2163.                 &pcm 32
  2164.                 !;正解です！p;
  2165.                 !この問題の賞品は・・・、p;
  2166.                 !１ペソ銀貨です。どうぞ。p
  2167.                 !o1s0j2i(１ペソ銀貨)j0を手に入れた！p
  2168.                 !o1s20「おめでとうございました。qcs0
  2169.                 &break
  2170.             }
  2171.             &break
  2172.         &case 5:
  2173.             !第３問。１回目の挑戦！p;
  2174.             &pcm 31
  2175.             !問題。この国にいる黒猫は何匹？
  2176.             &label
  2177.             &se 2
  2178.             %selsectlist={　７匹,　８匹,　９匹,１０匹,１１匹}
  2179.             &switch(%select){
  2180.             &default:
  2181.                 &jmp @b
  2182.             &case 0:
  2183.                 クイズ=7
  2184.                 &pcm 32
  2185.                 !;正解です！p;
  2186.                 !この問題の賞品は・・・、p;
  2187.                 !ゴールドリーフです。どうぞ。p
  2188.                 !o1s0j2i(ゴールドリーフ)j0を手に入れた！p
  2189.                 !o1s20「おめでとうございました。qcs0
  2190.                 &break
  2191.             &case 1:
  2192.                 クイズ=6
  2193.                 &jsr 不正解１
  2194.                 &break
  2195.             &case 2:
  2196.                 クイズ=6
  2197.                 &jsr 不正解１
  2198.                 &break
  2199.             &case 3:
  2200.                 クイズ=6
  2201.                 &jsr 不正解１
  2202.                 &break
  2203.             &case 4:
  2204.                 クイズ=6
  2205.                 &jsr 不正解１
  2206.                 &break
  2207.             }
  2208.             &break
  2209.         &case 6:
  2210.             !第３問。２回目の挑戦！p;
  2211.             &pcm 31
  2212.             !問題。この国にいる黒猫は何匹？
  2213.             クイズ=7
  2214.             &label
  2215.             &se 2
  2216.             %selsectlist={　７匹,　８匹,　９匹,１０匹,１１匹}
  2217.             &switch(%select){
  2218.             &default:
  2219.                 &jmp @b
  2220.             &case 0:
  2221.                 &pcm 32
  2222.                 !;正解です！p;
  2223.                 !この問題の賞品は・・・、p;
  2224.                 !ゴールドリーフです。どうぞ。p
  2225.                 !o1s0j2i(ゴールドリーフ)j0を手に入れた！p
  2226.                 !o1s20「おめでとうございました。qcs0
  2227.                 &break
  2228.             &case 1:
  2229.                 &jsr 不正解２
  2230.                 &break
  2231.             &case 2:
  2232.                 &jsr 不正解２
  2233.                 &break
  2234.             &case 3:
  2235.                 &jsr 不正解２
  2236.                 &break
  2237.             &case 4:
  2238.                 &jsr 不正解２
  2239.                 &break
  2240.             }
  2241.             &break
  2242.         &case 7:
  2243.             !第４問。１回目の挑戦！p;
  2244.             &pcm 31
  2245.             !問題。城のダンジョン、石像のある階の壁の色は？
  2246.             &label
  2247.             &se 2
  2248.             %selsectlist={白,緑,赤,紫,青,黒}
  2249.             &switch(%select){
  2250.             &default:
  2251.                 &jmp @b
  2252.             &case 0:
  2253.                 クイズ=8
  2254.                 &jsr 不正解１
  2255.                 &break
  2256.             &case 1:
  2257.                 クイズ=8
  2258.                 &jsr 不正解１
  2259.                 &break
  2260.             &case 2:
  2261.                 クイズ=8
  2262.                 &jsr 不正解１
  2263.                 &break
  2264.             &case 3:
  2265.                 クイズ=8
  2266.                 &jsr 不正解１
  2267.                 &break
  2268.             &case 4:
  2269.                 クイズ=9
  2270.                 &pcm 32
  2271.                 !;正解です！p;
  2272.                 !この問題の賞品は・・・、p;
  2273.                 !虹のクリスタルです。どうぞ。p
  2274.                 !o1s0j2i(虹のクリスタル)j0を手に入れた！p
  2275.                 !o1s20「おめでとうございました。qcs0
  2276.                 &break
  2277.             &case 5:
  2278.                 クイズ=8
  2279.                 &jsr 不正解１
  2280.                 &break
  2281.             }
  2282.             &break
  2283.         &case 8:
  2284.             !第４問。２回目の挑戦！p;
  2285.             &pcm 31
  2286.             !問題。城のダンジョン、石像のある階の壁の色は？
  2287.             クイズ=9
  2288.             &label
  2289.             &se 2
  2290.             %selsectlist={白,緑,赤,紫,青,黒}
  2291.             &switch(%select){
  2292.             &default:
  2293.                 &jmp @b
  2294.             &case 0:
  2295.                 &jsr 不正解２
  2296.                 &break
  2297.             &case 1:
  2298.                 &jsr 不正解２
  2299.                 &break
  2300.             &case 2:
  2301.                 &jsr 不正解２
  2302.                 &break
  2303.             &case 3:
  2304.                 &jsr 不正解２
  2305.                 &break
  2306.             &case 4:
  2307.                 &pcm 32
  2308.                 !;正解です！p;
  2309.                 !この問題の賞品は・・・、p;
  2310.                 !虹のクリスタルです。どうぞ。p
  2311.                 !o1s0j2i(虹のクリスタル)j0を手に入れた！p
  2312.                 !o1s20「おめでとうございました。qcs0
  2313.                 &break
  2314.             &case 5:
  2315.                 &jsr 不正解２
  2316.                 &break
  2317.             }
  2318.             &break
  2319.         &case 9:
  2320.             !第５問。１回目の挑戦！p;
  2321.             &pcm 31
  2322.             !問題。古の灯台は地上何階建て？
  2323.             &label
  2324.             &se 2
  2325.             %selsectlist={　５階,　６階,　７階,　８階,　９階,１０階,１１階}
  2326.             &switch(%select){
  2327.             &default:
  2328.                 &jmp @b
  2329.             &case 0:
  2330.                 クイズ=10
  2331.                 &jsr 不正解１
  2332.                 &break
  2333.             &case 1:
  2334.                 クイズ=10
  2335.                 &jsr 不正解１
  2336.                 &break
  2337.             &case 2:
  2338.                 クイズ=10
  2339.                 &jsr 不正解１
  2340.                 &break
  2341.             &case 3:
  2342.                 クイズ=11
  2343.                 &pcm 32
  2344.                 !;正解です！p;
  2345.                 !この問題の賞品は・・・、p;
  2346.                 !割引カードです。p;
  2347.                 !このカードを持っていると、パーセクの町の店の品物が、全て２割引で買えますよ。p;
  2348.                 !どうぞ。p
  2349.                 !o1s0j2i(割引カード)j0を手に入れた！p
  2350.                 !o1s20「おめでとうございました。qcs0
  2351.                 &break
  2352.             &case 4:
  2353.                 クイズ=10
  2354.                 &jsr 不正解１
  2355.                 &break
  2356.             &case 5:
  2357.                 クイズ=10
  2358.                 &jsr 不正解１
  2359.                 &break
  2360.             &case 6:
  2361.                 クイズ=10
  2362.                 &jsr 不正解１
  2363.                 &break
  2364.             }
  2365.             &break
  2366.         &case 10:
  2367.             !第５問。２回目の挑戦！p;
  2368.             &pcm 31
  2369.             !問題。古の灯台は地上何階建て？
  2370.             クイズ=11
  2371.             &label
  2372.             &se 2
  2373.             %selsectlist={　５階,　６階,　７階,　８階,　９階,１０階,１１階}
  2374.             &switch(%select){
  2375.             &default:
  2376.                 &jmp @b
  2377.             &case 0:
  2378.                 &jsr 不正解２
  2379.                 &break
  2380.             &case 1:
  2381.                 &jsr 不正解２
  2382.                 &break
  2383.             &case 2:
  2384.                 &jsr 不正解２
  2385.                 &break
  2386.             &case 3:
  2387.                 &pcm 32
  2388.                 !;正解です！p;
  2389.                 !この問題の賞品は・・・、p;
  2390.                 !割引カードです。p;
  2391.                 !このカードを持っていると、パーセクの町の店の品物が、全て２割引で買えますよ。p;
  2392.                 !どうぞ。p
  2393.                 !o1s0j2i(割引カード)j0を手に入れた！p
  2394.                 !o1s20「おめでとうございました。qcs0
  2395.                 &break
  2396.             &case 4:
  2397.                 &jsr 不正解２
  2398.                 &break
  2399.             &case 5:
  2400.                 &jsr 不正解２
  2401.                 &break
  2402.             &case 6:
  2403.                 &jsr 不正解２
  2404.                 &break
  2405.             }
  2406.             &break
  2407.         } 
  2408.     }
  2409. #33    &if(鉄鍋==1){
  2410.         &jsr 空
  2411.     }&else{
  2412.         %mandef(33)={$E,1,$CB,%down,-1}    //宝箱（開）
  2413.         &se 31
  2414.         &on
  2415.         !o1j2i(獅子王の黒刀)j0を見つけた！p
  2416.         &manmove 24,-8
  2417.         !o1s21「ごめんなさい。それは売り物じゃないのよ。qcs0
  2418.         %mandef(33)={$E,1,$CA,%down,-1}    //宝箱（閉）
  2419.         &on
  2420.         &manmove 24,-2
  2421.     }
  2422. #34
  2423. #35
  2424. #36    !o1s0
  2425.     &if(Ｂ>=50){
  2426.         !b0j2モンゴ:b5j0
  2427.     }
  2428.     &pcm 6
  2429.     !「にゃー。qc
  2430. #37    !o1s0
  2431.     &if(Ｂ>=50){
  2432.         !b0j2レンチ:b5j0
  2433.     }
  2434.     &pcm 6
  2435.     !「にゃー。qc
  2436. #38    &if(Ａ>=65 and Ａ<140){
  2437.         !o1b0s0j2盗賊:b5s20j0「ブルーナイト鉱石・・・。p;
  2438.         !ちっ、どこで噂を聞いたのかを忘れちまった。qcs0
  2439.     }
  2440.     &if(Ａ>=255){
  2441.         !o1b0s0j2セイロン:b5s21j0「まだ、諦めてませんよ。次は優勝してみせます。qcs0
  2442.     }
  2443. #39    &if(宝05==0){
  2444.         宝=ゆのみのかけら
  2445.         &jsr 宝箱大
  2446.         &if(宝箱フラグ==1){
  2447.             宝05=1
  2448.         }
  2449.     }&else{
  2450.         &jsr 空
  2451.     }
  2452. #100    &jsr 装備切り換え
  2453.     &bgm 18
  2454.     !o1s21「おはようございます。;それでは、お気をつけて。qcs0
  2455.  
  2456. #@3    &if(%direc<0){
  2457.         &contrast 0
  2458.         &se 17
  2459.         &wait 150
  2460.         &mappal PAL\MATI_S.PAL
  2461.         &move @5,%up
  2462.     }
  2463. #@5    &if(%direc<0){
  2464.         &contrast 0
  2465.         &se 18
  2466.         &wait 120
  2467.         &mappal PAL\MATI_I.PAL
  2468.         &move @3,%down
  2469.     }
  2470. #@7    &if(%direc<0){
  2471.         &contrast 0
  2472.         &se 17
  2473.         &wait 150
  2474.         &mappal PAL\MATI_S.PAL
  2475.         &move @9,%up
  2476.     }
  2477. #@9    &if(%direc<0){
  2478.         &contrast 0
  2479.         &se 18
  2480.         &wait 120
  2481.         &mappal PAL\MATI_I.PAL
  2482.         &move @7,%down
  2483.     }
  2484. #@30    &if(%direc<0){
  2485.         &se 13
  2486.         &goto2 町,@10,%down
  2487.     }
  2488. #@31    &if(%direc<0){
  2489.         &se 13
  2490.         &goto2 町,@11,%down
  2491.     }
  2492. #@32    &if(%direc<0){
  2493.         &se 13
  2494.         &goto2 町,@12,%down
  2495.     }
  2496. #@33    &if(%direc<0){
  2497.         &se 13
  2498.         &goto2 町,@13,%down
  2499.     }
  2500. #@34    &if(%direc<0){
  2501.         &se 13
  2502.         &goto2 町,@14,%down
  2503.     }
  2504. #@35    &if(%direc<0){
  2505.         &se 13
  2506.         &goto2 町,@15,%down
  2507.     }
  2508. #@36    &if(%direc<0){
  2509.         &se 13
  2510.         &goto2 町,@16,%down
  2511.     }
  2512. #@37    &if(%direc<0){
  2513.         &se 13
  2514.         &goto2 町,@17,%down
  2515.     }
  2516. #@38    &if(%direc<0){
  2517.         &se 13
  2518.         &goto2 町,@18,%down
  2519.     }
  2520. #@39    &if(%direc<0){
  2521.         &se 13
  2522.         &goto2 町,@19,%down
  2523.     }
  2524. #@40    &if(%direc<0){
  2525.         &se 13
  2526.         &goto2 町,@20,%down
  2527.     }
  2528. #@41    &if(%direc<0){
  2529.         &se 13
  2530.         &goto2 町,@21,%down
  2531.     }
  2532. #@42    &if(%direc<0){
  2533.         &se 13
  2534.         &goto2 町,@22,%down
  2535.     }
  2536. #@43    &if(%direc<0){
  2537.         &se 13
  2538.         &goto2 町,@23,%down
  2539.     }
  2540. #@45    &if(%direc<0){
  2541.         &se 13
  2542.         &goto2 町,@25,%down
  2543.     }
  2544. #@46    &if(%direc<0){
  2545.         &se 13
  2546.         &goto2 町,@26,%down
  2547.     }
  2548. #@47    &if(%direc<0){
  2549.         &se 13
  2550.         &goto2 町,@27,%down
  2551.     }
  2552. #@49    &if(%direc<0){
  2553.         &se 13
  2554.         &goto2 町,@29,%down
  2555.     }
  2556.  
  2557.  
  2558. //-------------------------------------------------------------------
  2559. [オアシス]
  2560. //-------------------------------------------------------------------
  2561.     &mapsp SPP\TAKI.SPP
  2562.     &mappal PAL\TAKI.PAL
  2563.     &if(Ａ==275){
  2564.         &map MAP\OASISU_.MAP
  2565.     }&else{
  2566.         &map MAP\OASISU.MAP
  2567.     }
  2568.     &jsr 大
  2569.     &if(Ａ==278){
  2570.         %partypoint={38,13,-%left}
  2571.     }&else{
  2572.         %partypoint={@5,-%up}
  2573.     }
  2574.  
  2575.     &if(Ａ==275){
  2576.         &partyset 2,1
  2577.         %mandef(1)={$C,6,$A0,%down,0}    //白猫（立ち）
  2578.         %mandef(2)={$F,7,$A0,%down,0}    //モンスター
  2579.         %mandef(3)={$E,6,$40,%left,0}    //ホロ
  2580.         %mandef(4)={$C,0,$80,%right,0}    //ジオット
  2581.         %mandef(5)={$B,1,$40,%down,0}    //ラズ
  2582.         %mandef(6)={$B,1,$60,%down,0}    //ストロ
  2583.         %mandef(7)={$B,1,$80,%down,0}    //グーズ
  2584.         %mandef(11)={$B,0,$AF,%down,-1}    //！
  2585.         %mandef(12)={$B,0,$AE,%down,-1}    //？
  2586.         %mandef(13)={$C,6,$85,%down,-1}    //ピカッ
  2587.         %mandef(14)={$C,0,$60,%left,0}    //クロ
  2588.         %manpoint(1)={26,11}
  2589.         %manpoint(5)={100,100}
  2590.         %manpoint(6)={100,100}
  2591.         %manpoint(7)={100,100}
  2592.         %manpoint(11)={100,100}
  2593.         %manpoint(12)={100,100}
  2594.         %manpoint(13)={100,100}
  2595.         %manpoint(14)={100,100}
  2596.     }
  2597.     &if(Ａ==278){
  2598.         &partyset 1
  2599.         %mandef(3)={$E,6,$40,%down,0}    //ホロ
  2600.         %mandef(4)={$C,0,$80,%right,0}    //ジオット
  2601.         %mandef(5)={$B,1,$40,%left,0}    //ラズ
  2602.         %mandef(6)={$B,1,$60,%left,0}    //ストロ
  2603.         %mandef(7)={$B,1,$80,%left,0}    //グーズ
  2604.         %mandef(8)={$E,1,$E0,%down,0}    //オールト
  2605.         %mandef(9)={$C,2,$C0,%down,0}    //カイパー
  2606.         %mandef(11)={$B,0,$AF,%down,-1}    //！
  2607.         %mandef(12)={$B,0,$AE,%down,-1}    //？
  2608.         %mandef(13)={$C,6,$85,%down,-1}    //ピカッ
  2609.         %mandef(14)={$C,0,$C0,%down,-1}    //クロ壊れ
  2610.         %mandef(15)={$C,0,$E1,%down,-1}    //クロ左足
  2611.         %mandef(16)={$C,0,$E3,%down,-1}    //クロ右足
  2612.         %mandef(17)={$C,0,$E2,%down,-1}    //クロ左手
  2613.         %mandef(18)={$C,0,$E2,%down,-1}    //クロ右手
  2614.         %manpoint(3)={38,7}
  2615.         %manpoint(4)={26,15}
  2616.         %manpoint(5)={39,11}
  2617.         %manpoint(6)={41,12}
  2618.         %manpoint(7)={41,10}
  2619.         %manpoint(8)={100,100}
  2620.         %manpoint(9)={100,100}
  2621.         %manpoint(11)={100,100}
  2622.         %manpoint(12)={100,100}
  2623.         %manpoint(13)={100,100}
  2624.         %manpoint(14)={35,13}
  2625.         %manpoint(15)={33,13}
  2626.         %manpoint(16)={36,14}
  2627.         %manpoint(17)={34,14}
  2628.         %manpoint(18)={36,14}
  2629.     }
  2630.     %mandef(10)={$F,0,$00,%down,0}    //水晶
  2631.     &if(水晶==0){
  2632.         %manpoint(10)={100,100}
  2633.     }
  2634.     &jsr ワープ３
  2635.     &bgm 25
  2636.  
  2637.     &on
  2638.  
  2639.     &jsr ワープ４
  2640.     &if(Ａ==278){
  2641.         &monsprint 0,0,全画面消し
  2642.         %mandef(3)={$E,6,$40,%down,1}    //ホロ
  2643.         &on
  2644.         &manmove 3,4,4,4,2,2
  2645.         %mandef(3)={$E,6,$40,%down,0}    //ホロ
  2646.         &on
  2647.         &manmove 3,-4,-2,-6,2,-2
  2648.         !o1b0s0j2ホロ:b5s20j0「・・・・・・。pc
  2649.         &manmove 4,8,6,6,6,6,6,6
  2650.         !o1b0s0j2ジオット:b6s20j0「・・・・・・。pc
  2651.         &manmove 7,-2
  2652.         !o1b0s0j2|6:b12s20j0「・・・ネコ。pc
  2653.         &manmove 6,-8
  2654.         !o1b0s0j2|5:b5s21j0「あら、忘れてたわ。白ネコさんは？pc
  2655.         &manmove 6,-4
  2656.         &manmove 7,-4
  2657.         &manmove 3,-6
  2658.         !o1b0s0j2ホロ:b5s20j0「お前等が闘ってる隙に、とっくに飛んでったよ・・・。p
  2659.         !o1b0s0j2ジオット:b6s20j0「修理は終わっておったのじゃ。pc
  2660.         &manmove 3,-2
  2661.         &manmove 5,-2
  2662.         !o1b0s0j2|4:b5s20j0「逃げられたのか。pc
  2663.         &manmove 3,4,4,4,-2
  2664.         !o1b0s0j2ホロ:b5s20j0「ジオット、クロは治るんだな。pc
  2665.         &manmove 4,-8
  2666.         !o1b0s0j2ジオット:b6s20j0「勿論じゃ。pc
  2667.         &manmove 4,-6
  2668.         &manmove 3,-8
  2669.         &manmove 5,-4
  2670.         %manpoint(13)={35,12}
  2671.         &on
  2672.         &wait 20
  2673.         %manpoint(13)={100,100}
  2674.         &on
  2675.         %manpoint(13)={35,12}
  2676.         &on
  2677.         &wait 15
  2678.         %manpoint(13)={100,100}
  2679.         &on
  2680.         &on
  2681.         %manpoint(13)={35,12}
  2682.         &on
  2683.         &wait 10
  2684.         %manpoint(13)={100,100}
  2685.         &on
  2686.         !o1b0s0j2|4:b5s20j0「ん？pc
  2687.         &manmove 5,4,4,4,-2,-2,-2
  2688.         %manpoint(13)={36,12}
  2689.         &on
  2690.         &wait 20
  2691.         %manpoint(13)={100,100}
  2692.         &on
  2693.         %manpoint(13)={36,12}
  2694.         &on
  2695.         &wait 15
  2696.         %manpoint(13)={100,100}
  2697.         &on
  2698.         &on
  2699.         %manpoint(13)={36,12}
  2700.         &on
  2701.         &wait 10
  2702.         %manpoint(13)={100,100}
  2703.         &on
  2704.         !o1b0s0j2|4:b5s20j0「これは何だ？p
  2705.         &manmove 4,-8
  2706.         !o1b0s0j2ジオット:b6s20j0「おお、それじゃ。pc
  2707.         &manmove 3,-2
  2708.         &manmove 4,8,8,8,6,6
  2709.         &manmove 5,-4
  2710.         &manmove 3,-6
  2711.         !o1b0s0j2ジオット:b6s20j0「このブラックオーブが無事ならば、クロは大丈夫なのじゃ。pc
  2712.         &manmove 4,4,4,2,2,-6,-2,-8,2,2,6,6,6,-4,-6,-8
  2713.         !o1b0s0j2ジオット:b6s20j0「・・・わしにちょっと考えがある。p;
  2714.         &manmove 3,-2
  2715.         &manmove 5,-2
  2716.         !クロを運ぶのを手伝っとくれ。pc
  2717.         %manpoint(8)={38,5}
  2718.         %manpoint(9)={36,5}
  2719.         &manmove 7,-8
  2720.         &se 4
  2721.         &on
  2722.         %manpoint(8)={100,100}
  2723.         %manpoint(9)={100,100}
  2724.         &manmove 5,-8
  2725.         &on
  2726.         %manpoint(8)={38,5}
  2727.         %manpoint(9)={36,5}
  2728.         &wait 10
  2729.         &on
  2730.         &manmove 6,-8
  2731.         &manmove 3,-8
  2732.         &partymove -8
  2733.         &manmove 9,2,-4,-2,-6,-2
  2734.         &manmove 8,2
  2735.         !o1b0s0j2オールト:b5s20j0「やはり、遅かったようですね。p;
  2736.         !さあ、私の力で皆さんを研究所までお連れしましょう！pc
  2737.         %manpoint(3)={100,100}
  2738.         %manpoint(4)={100,100}
  2739.         %manpoint(5)={100,100}
  2740.         %manpoint(6)={100,100}
  2741.         %manpoint(7)={100,100}
  2742.         %manpoint(8)={100,100}
  2743.         %manpoint(14)={100,100}
  2744.         %manpoint(15)={100,100}
  2745.         %manpoint(16)={100,100}
  2746.         %manpoint(17)={100,100}
  2747.         %manpoint(18)={100,100}
  2748.         &partyset 0
  2749.         &se 4
  2750.         &on
  2751.         %mandef(3)={$E,6,$40,%down,0}    //ホロ
  2752.         %mandef(4)={$C,0,$80,%down,0}    //ジオット
  2753.         %mandef(5)={$B,1,$40,%down,0}    //ラズ
  2754.         %mandef(6)={$B,1,$60,%down,0}    //ストロ
  2755.         %mandef(7)={$B,1,$80,%down,0}    //グーズ
  2756.         %manpoint(3)={31,10}
  2757.         %manpoint(4)={34,15}
  2758.         %manpoint(5)={36,11}
  2759.         %manpoint(6)={41,12}
  2760.         %manpoint(7)={41,10}
  2761.         %manpoint(8)={38,6}
  2762.         %manpoint(14)={35,13}
  2763.         %manpoint(15)={33,13}
  2764.         %manpoint(16)={36,14}
  2765.         %manpoint(17)={34,14}
  2766.         %manpoint(18)={36,14}
  2767.         &partymove -2
  2768.         &partyset 1
  2769.         &on
  2770.         %manpoint(3)={100,100}
  2771.         %manpoint(4)={100,100}
  2772.         %manpoint(5)={100,100}
  2773.         %manpoint(6)={100,100}
  2774.         %manpoint(7)={100,100}
  2775.         %manpoint(8)={100,100}
  2776.         %manpoint(14)={100,100}
  2777.         %manpoint(15)={100,100}
  2778.         %manpoint(16)={100,100}
  2779.         %manpoint(17)={100,100}
  2780.         %manpoint(18)={100,100}
  2781.         &partyset 0
  2782.         &on
  2783.         &manmove 9,2,2,2,2,2
  2784.         %manpoint(12)={36,8}
  2785.         &on
  2786.         &pcm 22
  2787.         &manmove 9,-4,-6,-8,-8
  2788.         %manpoint(12)={100,100}
  2789.         &on
  2790.         !o1b0s0j2オールト:b5s20j0「人員オーバーです。カイパーは歩いて帰ってください。pc
  2791.         &manmove 9,-2,-2
  2792.         !o1b0s0j2カイパー:b5s22j0「・・・・・・。pcs0
  2793.         Ａ=280
  2794.         &bgm -1
  2795.         &jsr 闇
  2796.         &goto 研究所＿中
  2797.     }
  2798.     &if(Ａ==275){
  2799.         &partyspeed 1
  2800.         &partymove 8,8,8,8
  2801.         %manpoint(12)={%px,%py-3}
  2802.         &on
  2803.         &pcm 22
  2804.         &wait 60
  2805.         !o1b0s0j2|2:b5s20j0「お、占い師の言った通りだ。向こう側に誰かいるぞ！pc
  2806.         %manpoint(12)={100,100}
  2807.         &on
  2808.         &partymove 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
  2809.         &partymove 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  2810.         &partymove 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  2811.         &partymove 4,4,4,4,4,8,8,8,8,8,8,8,8
  2812.         %manpoint(11)={%px,%py-3}
  2813.         &on
  2814.         &pcm 22
  2815.         !o1b0s0j2|2:b5s20j0「ホロ！wこんなところで何やってんだ？博士知らないか？pc
  2816.         %manpoint(11)={100,100}
  2817.         &on
  2818.         &manmove 3,-6,-4,-2
  2819.         %mandef(3)={$E,6,$40,%down,-1}    //ホロ
  2820.         %manpoint(3)={38,5}
  2821.         %manpoint(11)={38,2}
  2822.         &on
  2823.         &pcm 22
  2824.         &wait 10
  2825.         %mandef(3)={$E,6,$40,%down,0}    //ホロ
  2826.         %manpoint(3)={38,6}
  2827.         %manpoint(11)={38,3}
  2828.         &on
  2829.         !o1b0s0j2ホロ:b5s20j0「お、お前等！w早く助けろ！アホ！p
  2830.         %manpoint(11)={100,100}
  2831.         &on
  2832.         !o1b0s0j2？？？:b5s21j0「おや、お客様のようですね。pc
  2833.         &partymove -4
  2834.         &manmove 1,6,6,6,6,-6
  2835.         !o1b0s0j2|2:b5s20j0「お前はあの白ネコ！？p;・w・w・
  2836.         %manpoint(11)={%px,%py-3}
  2837.         &on
  2838.         &pcm 22
  2839.         !w猫が・・・、wた、立って歩いて喋ってる！！！pc
  2840.         %manpoint(11)={100,100}
  2841.         &on
  2842.         &manmove 1,-2
  2843.         !o1b0s0j2白ネコ:b5s21j0「驚かなくてもいいでしょう。私にはあなた達の方が驚きですよ。pc
  2844.         &partymove -8
  2845.         !o1b0s0j2ホロ:b5s20j0「そいつはオレを人質にとって、あの空飛ぶ機械を修理させてやがるんだ！p
  2846.         !o1b0s0j2？？？:b6s20j0「そんなことをしなくても修理すると言ったんだがの。pc
  2847.         &partymove -4
  2848.         %manpoint(11)={%px,%py-3}
  2849.         &on
  2850.         &pcm 22
  2851.         !o1b0s0j2|2:b5s20j0「その声は・・・、
  2852.         %manpoint(11)={100,100}
  2853.         &on
  2854.         &partymove 4,4,4,4,4
  2855.         !博士！！p;そうか。博士がいなくなったのは、お前が原因だったんだな。pc
  2856.         &manmove 3,-4,-2
  2857.         !o1b0s0j2ホロ:b4s20j0「オレもだ！p
  2858.         !o1b0s0j2ジオット:b6s20j0「ずいぶん、久しぶりじゃな。元気だったかの？pc
  2859.         &manmove 3,-4
  2860.         !o1b0s0j2ホロ:b5s20j0「挨拶なんかしてる場合か！p
  2861.         &manmove 3,-2,-2
  2862.         !;早く助けろ！pc
  2863.         &manmove 1,-6
  2864.         !o1b0s0j2白ネコ:b5s21j0「あなた達には感謝していますよ。ずいぶん協力して貰いましたからね。pc
  2865.         &manmove 1,-2
  2866.         %manpoint(13)={30,12}
  2867.         &on
  2868.         &wait 20
  2869.         %manpoint(13)={100,100}
  2870.         &on
  2871.         %manpoint(13)={30,12}
  2872.         &on
  2873.         &wait 15
  2874.         %manpoint(13)={100,100}
  2875.         &on
  2876.         %manpoint(13)={30,12}
  2877.         &on
  2878.         &wait 10
  2879.         %manpoint(13)={100,100}
  2880.         &on
  2881.         %manpoint(11)={%px-1,%py-2}
  2882.         &on
  2883.         &pcm 22
  2884.         !o1b0s0j2|2:b5s20j0「それは竜の涙！wやっぱりお前だったのか。pc
  2885.         %manpoint(11)={100,100}
  2886.         &on
  2887.         &manmove 1,-6
  2888.         !o1b0s0j2白ネコ:b5s21j0「私の目的にはこのクエーサーの鍵が必要だったのです。pc
  2889.         %manpoint(12)={%px-1,%py-2}
  2890.         &on
  2891.         &pcm 22
  2892.         !o1b0s0j2|2:b5s20j0「目的？wクエーサー？pc
  2893.         %manpoint(12)={100,100}
  2894.         &on
  2895.         &manmove 1,-2,-2
  2896.         !o1b0s0j2白ネコ:b5s21j0「ある国で石板が見つかりましてね。p;その石版にはこの国の上空に先人の遺跡が浮いていると・・・。pc
  2897.         &manmove 3,-4
  2898.         &partymove -8
  2899.         !o1b0s0j2ホロ:b5s20j0「はっ、そんなこと知ってるわ！pc
  2900.         &manmove 3,-2
  2901.         &manmove 1,-6
  2902.         &partymove -4,-4
  2903.         !o1b0s0j2白ネコ:b5s21j0「そこにある装置を使えば、地上のモンスターを自由自在に操れるというのです。p
  2904.         !o1b0s0j2ホロ:b5s20j0「・・・・・・。pc
  2905.         &manmove 1,-2
  2906.         !o1b0s0j2白ネコ:b5s21j0「その装置を操るクエーサーの鍵がこれ、w
  2907.         &manmove 1,-2
  2908.         %manpoint(13)={30,12}
  2909.         &on
  2910.         &wait 20
  2911.         %manpoint(13)={100,100}
  2912.         &on
  2913.         %manpoint(13)={30,12}
  2914.         &on
  2915.         &wait 15
  2916.         %manpoint(13)={100,100}
  2917.         &on
  2918.         %manpoint(13)={30,12}
  2919.         &on
  2920.         &wait 10
  2921.         %manpoint(13)={100,100}
  2922.         &on
  2923.         !だったのですよ。p
  2924.         &partymove -8
  2925.         !o1b0s0j2ホロ:b5s20j0「フン！それを使って世界征服でもしようって気か！？pc
  2926.         &partymove -4
  2927.         !o1b0s0j2|2:b5s20j0「なに、そんなことさせるか！！pc
  2928.         &manmove 1,-6
  2929.         !o1b0s0j2白ネコ:b5s21j0「おやおや、邪魔は困りますね。p;てぺ！相手をしてあげなさい。pc
  2930.         &manmove 2,-6,-4,-8,-2
  2931.         !o1b0s0j2てぺ:b5s32j0「ピポピポピポ。pc
  2932.         &partymove -8
  2933.         &manmove 2,2,2,4,4,2,2,2
  2934.         &partymove -4,-6,-8
  2935.         !o1b0s0j2|2:b5s20j0「おい！なんだ、なんだ！コイツ！pc
  2936.         &manmove 2,-6,-4,-8,-2,-2
  2937.         !o1b0s0j2てぺ:b5s32j0「ピピピ！pc
  2938.         &patternpal PAL\CG_C.PAL
  2939.         &battle $1000,35,てぺ,1
  2940.         &partyset 2,1
  2941.         &jsr 戦闘後処理
  2942.         !o1b0s0j2てぺ:b5s32j0「ピッーーーーーーーーーーー－！！pc
  2943.         &if(%exitcode==0){
  2944.             %manpoint(2)={100,100}
  2945.             &on
  2946.             &wait 14
  2947.             %manpoint(2)={38,11}
  2948.             &on
  2949.             &wait 10
  2950.             %manpoint(2)={100,100}
  2951.             &on
  2952.             &wait 7
  2953.             %manpoint(2)={38,11}
  2954.             &on
  2955.             &wait 5
  2956.             %manpoint(2)={100,100}
  2957.             &on
  2958.         }
  2959.         &manmove 3,2
  2960.         !o1b0s0j2ホロ:b5s20j0「へっ！楽勝だったな。p
  2961.         !o1b0s0j2|2:b5s20j0「お前が言うな。p;
  2962.         &partymove -4
  2963.         !あとはお前一人だぜ。p;
  2964.         &partymove 4
  2965.         !さあ、どうする？pc
  2966.         &manmove 1,-2
  2967.         !o1b0s0j2白ネコ:b5s21j0「ふふふ。何か忘れていませんか？あなたは私に一度倒されてるんですよ。pc
  2968.         &partymove -2
  2969.         !o1b0s0j2|2:b5s20j0「ふん！それがどうした！pc
  2970.         &partymove -4
  2971.         &manmove 1,-6
  2972.         !o1b0s0j2白ネコ:b5s21j0「こういうことですよ。pc
  2973.         &pcm 23
  2974.         &pcm 24
  2975.         %manpoint(14)={%px-1,%py}
  2976.         &partyset 0,1
  2977.         &on
  2978.         %manpoint(11)={%px-1,%py-2}
  2979.         &on
  2980.         &pcm 22
  2981.         !o1b0s0j2|2:b5s20j0「わわっ！
  2982.         &manmove 14,-8,-6,-2,-4,-8,-6,-2,-4
  2983.         !か、体が勝手に動く！p
  2984.         %manpoint(11)={100,100}
  2985.         &on
  2986.         !o1b0s0j2白ネコ:b5s21j0「さあ、こちらに来るのです。pc
  2987.         &pcm 23
  2988.         &pcm 24
  2989.         &manmove 14,4,4,4,4,4,4,4,-8,-4,-2,-6
  2990.         %mandef(14)={$C,0,$60,%right,-1}    //クロ
  2991.         &on
  2992.         &partymove 6,-4
  2993.         &partyset 1
  2994.         &on
  2995.         &manmove 1,-2
  2996.         !o1b0s0j2白ネコ:b5s21j0「あの時に、ちょっとした装置を付けさせていただきました。pc
  2997.         &manmove 4,-2
  2998.         !o1b0s0j2ジオット:b6s20j0「おお、そうじゃった、そうじゃった。見なれん物が付いていたな。p;
  2999.         !・・・取るのを忘れとった。pc
  3000.         %mandef(3)={$E,6,$40,%down,-1}    //ホロ
  3001.         %manpoint(3)={38,6}
  3002.         &on
  3003.         &wait 10
  3004.         %mandef(3)={$E,6,$40,%down,0}    //ホロ
  3005.         %manpoint(3)={38,7}
  3006.         &on
  3007.         !o1b0s0j2ホロ:b4s20j0「おい、ジオット！p
  3008.         !o1b0s0j2|2:b5s20j0「頼むよ、博士ぇ。pc
  3009.         &manmove 4,-6
  3010.         &manmove 1,-6
  3011.         !o1b0s0j2白ネコ:b5s21j0「さあ、今度はクロさんが相手をします。pc
  3012.         &manmove 3,-6,-4,-2
  3013.         !o1b0s0j2ホロ:b5s20j0「どうするんだ！？p
  3014.         !o1b0s0j2|2:b5s20j0「ええい、こうなったら仕方がない。p;闘え！タマ！！
  3015.         &label
  3016.         &if(%inkeyn==1){
  3017.             !o1b0s0j2|2:b5s20j0「壊れても博士に修理してもらえばいいんだ。p
  3018.             !o1b0s0j2ジオット:b6s20j0「うむ。そうじゃな。p
  3019.             !o1b0s0j2|2:b5s20j0「闘え！タマ！！
  3020.             &jmp @b
  3021.         }
  3022.         !o1b0s0j2白ネコ:b5s21j0「ふふふ、クロさんは強いですよ。p;
  3023.         !ちょっと無理をして、限界を超えていただきますから。p
  3024.         !o1b0s0j2？？？:b4s20j0「ちょっと、待った～！！pc
  3025.         &bgm 46
  3026.         &manmove 1,-8
  3027.         &manmove 3,-8
  3028.         &partymove -8
  3029.         &manmove 4,-8
  3030.         %manpoint(5)={40,0}
  3031.         &se 13
  3032.         &on
  3033.         &manmove 5,2,2
  3034.         %manpoint(6)={42,0}
  3035.         &se 13
  3036.         &on
  3037.         &manmove 6,2,2
  3038.         %manpoint(7)={44,0}
  3039.         &se 13
  3040.         &on
  3041.         &manmove 7,2,2
  3042.         !o1b0s0j2|4:b5s20j0「話は全部聞かせてもらったぜ。p
  3043.         !o1b0s0j2|5:b5s21j0「私達もお手伝いしますよ。p
  3044.         !o1b0s0j2|6:b5s20j0「・・・よ！pc
  3045.         &manmove 1,-6
  3046.         %mandef(5)={$B,1,$40,%down,1}    //ラズ
  3047.         &on
  3048.         &manmove 5,2,2,2,2,2,2,2,2,2,4
  3049.         %mandef(5)={$B,1,$40,%left,0}    //ラズ
  3050.         &on
  3051.         &manmove 4,-6
  3052.         &manmove 3,-2
  3053.         %mandef(6)={$B,1,$60,%down,1}    //ストロ
  3054.         &on
  3055.         &manmove 6,2,2,2,2,2,2,2,2,2,2,4
  3056.         %mandef(6)={$B,1,$60,%left,0}    //ストロ
  3057.         &on
  3058.         %mandef(7)={$B,1,$80,%down,1}    //グーズ
  3059.         &on
  3060.         &manmove 7,2,2,2,2,2,2,2,2,4,4,4
  3061.         %mandef(7)={$B,1,$80,%left,0}    //グーズ
  3062.         &on
  3063.         &manmove 5,-2
  3064.         !o1b0s0j2|4:b5s20j0「これを使え！p
  3065.         &if(%rasthaveitem<=0){
  3066.             &partyitemout 通行許可証
  3067.         }
  3068.         &partyitemin ネビュラソード
  3069.         !o1s0j2i(ネビュラソード)j0を手に入れた！p
  3070.         !o1b0s0j2|4:b5s20j0「重すぎて、オレ達には扱えないんだ。その剣はお前が使え！pc
  3071.         &partymove -6,-6
  3072.         !o1b0s0j2|5:b5s21j0「さあ、装備して！p
  3073.         !o1b0s0j2|6:b5s20j0「そーび！pc
  3074.         &partymove -2
  3075.     }
  3076.  
  3077. #1
  3078. #2
  3079. #3
  3080. #4
  3081. #5    &if(%haveitem(ネビュラソード)==1){
  3082.         &if(%manno==5){
  3083.             !o1b0s0j2|4:b5s20j0「おい、装備しないと意味がないぞ。pc
  3084.         }&else{
  3085.             !o1b0s0j2|5:b5s21j0「さあ、装備して！p
  3086.             !o1b0s0j2|6:b5s20j0「そーび！pc
  3087.         }
  3088.         &&
  3089.     }
  3090.     &if(%manno==5){
  3091.         !o1b0s0j2|4:b5s20j0「よし装備したな。p
  3092.     }&else{
  3093.         !o1b0s0j2|5:b5s21j0「装備したわね。p
  3094.     }
  3095.     &bgm 44
  3096.     !o1s0b2|4が仲間になった！！:
  3097.     !|5が仲間になった！！:
  3098.     !|6が仲間になった！！
  3099.     &wait 350
  3100.     !pc
  3101.     &bgm 46
  3102.     &manmove 5,-4
  3103.     &partymove -4,-4
  3104.     !o1b0s0j2白ネコ:b5s21j0「相談は終わりましたか？そろそろ行きますよ。pc
  3105.     &manmove 1,-2
  3106.     &pcm 23
  3107.     &pcm 24
  3108.     %mandef(14)={$C,0,$60,%right,0}    //クロ
  3109.     &on
  3110.     &manmove 1,-6
  3111.     &manmove 14,-8,-6,-2,-4,6,6,6,6,6
  3112.     %mandef(14)={$C,0,$60,%right,-1}    //クロ
  3113.     &on
  3114.     !o1b0s0j2|2:b5s20j0「もうやけだ！さあ、オレを壊しやがれ！pc
  3115.     &bgm -1
  3116.     &partyset 1,4,5,6
  3117.     &patternpal PAL\CG_C.PAL
  3118.     &bgm 0
  3119.     &battle $1000,35,クロ,1
  3120.     &if(%exitcode==1){
  3121.         &jmp ＧＯ
  3122.     }
  3123.     &contrast 0
  3124.     &monsprint 0,0,全画面黒
  3125.     &patternpal PAL\CG_E.PAL
  3126.     Ａ=278
  3127.     &goto オアシス
  3128. #6    &link 5
  3129. #7    !o1b0s0j2|6:b5s20j0「そーび！pc
  3130. #8
  3131. #9
  3132. #10    &if(%haveitem(オールトの指輪)==1){
  3133.         &jsr 水晶飛
  3134.     }
  3135. #11
  3136. #12
  3137. #13
  3138. #14
  3139. #15
  3140. #16
  3141. #17
  3142. #18
  3143.  
  3144. #@0    &if(%direc<0){
  3145.         &se 13
  3146.         &goto2 フィールド,@14,%down
  3147.     }
  3148. #@1    &if(%direc==8 or %direc==6){
  3149.         &jsr 聖水飲む
  3150.     }
  3151. #@2    &if(%direc==8){
  3152.         &jsr 聖水飲む
  3153.     }
  3154. #@3    &if(%direc==8 or %direc==4){
  3155.         &jsr 聖水飲む
  3156.     }
  3157. #@4    &if(%direc==6){
  3158.         &jsr 聖水飲む
  3159.     }
  3160. #@6    &if(%direc==4){
  3161.         &jsr 聖水飲む
  3162.     }
  3163. #@7    &if(%direc==2 or %direc==6){
  3164.         &jsr 聖水飲む
  3165.     }
  3166. #@8    &if(%direc==2){
  3167.         &jsr 聖水飲む
  3168.     }
  3169. #@9    &if(%direc==2 or %direc==4){
  3170.         &jsr 聖水飲む
  3171.     }
  3172.  
  3173.  
  3174. //-------------------------------------------------------------------
  3175. [村]    //ケレス
  3176. //-------------------------------------------------------------------
  3177.     &mapsp SPP\MURA.SPP
  3178.     &mappal PAL\MATI.PAL
  3179.     &map MAP\MURA.MAP
  3180.     &jsr 大
  3181.     %partypoint={@1,-%up}
  3182.     &if(Ａ==260){
  3183.         &if(%nowbgm!=41){
  3184.             &bgm 41
  3185.         }
  3186.     }&else{
  3187.         &if(%nowbgm!=22){
  3188.             &bgm 22
  3189.         }
  3190.     }
  3191.  
  3192.     %mandef(1)={$F,7,$A0,%down,2}    //モンスター
  3193.     %mandef(2)={$C,6,$E0,%down,1}    //黒猫
  3194.     %mandef(3)={$D,5,$A0,%down,0}    //村老
  3195.     %mandef(4)={$D,5,$40,%down,2}    //村男
  3196.     %mandef(5)={$D,5,$60,%down,2}    //村女１
  3197.     %mandef(6)={$D,5,$40,%down,2}    //村男
  3198.     %mandef(7)={$D,5,$80,%down,1}    //村子
  3199.     %mandef(9)={$F,1,$C1,%down,-1}    //ドア（開）
  3200.     %mandef(10)={$F,0,$00,%down,0}    //水晶
  3201.     %mandef(18)={$E,7,$40,%down,2}    //セイロン
  3202.     %manpoint(9)={100,100}
  3203.     &if(Ｂ>=20 and %haveitem(おもちゃのラッパ)==0 and レベル>%partylevel(1)){
  3204.         %mandef(8)={$D,5,$80,%down,0}    //村子
  3205.     }&else{
  3206.         %mandef(8)={$D,5,$80,%down,1}    //村子
  3207.     }
  3208.     &if(Ａ>=65 and Ａ<140){
  3209.         %manpoint(18)={27,45}
  3210.     }&else{
  3211.         %manpoint(18)={100,100}
  3212.     }
  3213.     &if(水晶==0){
  3214.         %manpoint(10)={100,100}
  3215.     }
  3216.     &if(Ａ==260){
  3217.         %mandef(1)={$F,7,$A0,%down,2}    //モンスター
  3218.         %mandef(2)={$D,5,$C0,%down,0}    //村商人
  3219.         %mandef(3)={$F,7,$A0,%down,0}    //モンスター
  3220.         %mandef(4)={$F,7,$A0,%down,0}    //モンスター
  3221.         %mandef(11)={$1,1,$00,%down,-1}    //透明
  3222.         %mandef(12)={$1,1,$00,%down,-1}    //透明
  3223.         %mandef(13)={$1,1,$00,%down,-1}    //透明
  3224.         %mandef(14)={$1,1,$00,%down,-1}    //透明
  3225.         %mandef(15)={$1,1,$00,%down,-1}    //透明
  3226.         %mandef(16)={$1,1,$00,%down,-1}    //透明
  3227.         %mandef(17)={$1,1,$00,%down,-1}    //透明
  3228.         %manpoint(1)={32,38}
  3229.         %manpoint(4)={30,35}
  3230.         %manpoint(5)={100,100}
  3231.         %manpoint(6)={100,100}
  3232.         %manpoint(7)={100,100}
  3233.         %manpoint(8)={100,100}
  3234.         %manpoint(11)={10,13}
  3235.         %manpoint(12)={24,13}
  3236.         %manpoint(13)={37,16}
  3237.         %manpoint(14)={52,22}
  3238.         %manpoint(15)={11,30}
  3239.         %manpoint(16)={19,58}
  3240.         %manpoint(17)={55,58}
  3241.     }
  3242.     &jsr ワープ３
  3243.     I=0
  3244.     &on
  3245.  
  3246.     &jsr ワープ４
  3247.  
  3248. #1    &if(Ａ>265){
  3249.         !o1s23「ケケケケケ。クッチャウゾ～。p;どう？似てる？qcs0
  3250.     }
  3251.     &if(Ａ==265){
  3252.         !o1s23「助かったよ。ありがとう。qcs0
  3253.     }
  3254.     &if(Ａ==260){
  3255.         !o1s23「ボクだよ、ボク。p;
  3256.         !どうやら、あいつらボクを仲間だと思ってるみたいなんだ。;どうしよ～。qcs0
  3257.     }
  3258.     &if(Ａ<260){
  3259.         !o1s23「ガオ～！ガオガオ～！！p;
  3260.         !驚いた？いいでしょ、この着ぐるみ。クミンに作ってもらったんだ。qcs0
  3261.     }
  3262. #2    &if(Ａ==260){
  3263.         !o1s23「助けてくれ～！喰われるのはイヤだぁ～！qcs0
  3264.     }&else{
  3265.         !o1s0
  3266.         &if(Ｂ>=50){
  3267.             !b0j2トンロ:b5j0
  3268.         }
  3269.         &pcm 6
  3270.         !「にゃー。
  3271.         &if(Ｂ==50 or Ｂ==60){
  3272.             !p
  3273.             !o1b0s0j2|2:b5s23j0「いた！トンロはこの猫だ。p;
  3274.             !でも、猫に聞けって、どういうことなんだ？p
  3275.             &pcm 6
  3276.             !o1b0s0j2トンロ:b5j0「にゃー。p
  3277.             !o1b0s0j2|2:b5s23j0「ん？他にも首輪に何か書いてあるぞ。p;
  3278.             !『立て札の裏』と書いてある。
  3279.             Ｂ=60
  3280.         }
  3281.         !qc
  3282.     }
  3283. #3    &if(Ａ==260){
  3284.         &if(I==0){
  3285.             !o1s22「ケケケケケ。クッチャウゾ～。p;ウマソウケケ。オマエモクウケケ？qcs0
  3286.             I++
  3287.         }&else{
  3288.             !o1s22「オマエラ、ヘン。ニオイシナイケケ。p;ナカマジャナイケケ。pcs0
  3289.             &patternpal PAL\CG_C.PAL
  3290.             &battle $1000,35,コデビル,2
  3291.             &jsr 戦闘後処理
  3292.             &if(%exitcode==0){
  3293.                 %manpoint(3)={100,100}
  3294.                 %manpoint(4)={100,100}
  3295.                 &on
  3296.                 &wait 14
  3297.                 %manpoint(3)={34,35}
  3298.                 %manpoint(4)={30,35}
  3299.                 &on
  3300.                 &wait 10
  3301.                 %manpoint(3)={100,100}
  3302.                 %manpoint(4)={100,100}
  3303.                 &on
  3304.                 &wait 7
  3305.                 %manpoint(3)={34,35}
  3306.                 %manpoint(4)={30,35}
  3307.                 &on
  3308.                 &wait 5
  3309.                 %manpoint(3)={100,100}
  3310.                 %manpoint(4)={100,100}
  3311.                 &on
  3312.             }
  3313.             &manmove 2,-4,-2,-6,-4,-6
  3314.             &if(%py>35){
  3315.                 &manmove 2,-2
  3316.             }
  3317.             &if(%py<35){
  3318.                 &manmove 2,-8
  3319.             }
  3320.             &if(%py==35){
  3321.                 &if(%px>32){
  3322.                     &manmove 2,-6
  3323.                 }&else{
  3324.                     &manmove 2,-4
  3325.                 }
  3326.             }
  3327.             !o1s23「あ、ありがとう！！;もうダメかと思ったよ。p;
  3328.             !あんたらには何かお礼をしないとな。wそうだ！ちょっとうちに来てくれよ。pcs0
  3329.             Ａ=265
  3330.             %mandef(2)={$D,5,$C0,%down,1}    //村商人
  3331.             &on
  3332.             &manmove 2,4,4,4,4,4,4,4,4,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  3333.             %mandef(2)={$D,5,$C0,%down,0}    //村商人
  3334.             &on
  3335.             %manpoint(9)={24,13}
  3336.             &on
  3337.             &pcm 1
  3338.             &wait 25
  3339.             %manpoint(2)={100,100}
  3340.             %manpoint(9)={100,100}
  3341.             %manpoint(11)={100,100}
  3342.             %manpoint(12)={100,100}
  3343.             &on
  3344.         }
  3345.     }
  3346.     &if(Ａ>260){
  3347.         !o1s23「わしらの先祖は砂漠に住んでいてな、砂の民と呼ばれとったそうじゃ。qcs0
  3348.         &manmove 3,-2
  3349.     }
  3350.     &if(Ａ<260){
  3351.         !o1s23「この木は村の守り神じゃ・w・w・。p;嘘じゃ。qcs0
  3352.         &manmove 3,-2
  3353.     }
  3354. #4    &if(Ａ==260){
  3355.         &link 3
  3356.     }
  3357.     &if(Ａ>260){
  3358.         !o1s23「オアシスの水を飲んだことがあるかい？p;飲めば気分爽快、身体はリフレッシュ！・・・だそうだ。qcs0
  3359.     }
  3360.     &if(Ａ<260){
  3361.         !o1s23「狂暴なモンスターが村に入ってきたりしたら、鐘を鳴らしてみんなに知らせるんだ。qcs0
  3362.     }
  3363. #5    &if(Ａ>260){
  3364.         !o1s24「この服は、昔砂漠に住んでいた頃の名残りなのよ。qcs0
  3365.     }&else{
  3366.         !o1s24「ケレスの村にようこそ。;君達の着ぐるみ、なかなかいいセンスしてるわよ。qcs0
  3367.     }
  3368. #6    &if(Ａ>260){
  3369.         !o1s23「遺跡の扉を開けるには鍵玉が必要なんだ。qcs0
  3370.     }&else{
  3371.         !o1s23「この村の南に、変な洞窟があるの知ってるかい？とにかく、不思議なんだ。qcs0
  3372.     }
  3373. #7    &if(Ａ>260){
  3374.         !o1s24「砂漠にはオアシスがあるんだって。行ってみたいなあ。qcs0
  3375.     }&else{
  3376.         !o1s24「その着ぐるみ、クミンに作ってもらったの？;いいなあ。qcs0
  3377.     }
  3378. #8    &if(Ｂ>=20 and %haveitem(おもちゃのラッパ)==0 and レベル>%partylevel(1)){
  3379.         !o1s24「ねえ、ねえ、魔法できるんでしょ。やって見せてよ。
  3380.         &if(%inkeyn==0){
  3381.             &se 3
  3382.             &freash 60
  3383.             !;うおお！すげぇ！p;
  3384.             !見せてくれたお礼だ、これあげるよ。p
  3385.             &if(%rasthaveitem>0){
  3386.                 &partyitemin おもちゃのラッパ
  3387.                 !o1s0j2i(おもちゃのラッパ)j0を手に入れた！p
  3388.                 !o1s24「そのラッパを鳴らせば、ぐっすり眠ってる人も飛び起きるんだ。
  3389.                 %mandef(8)={$D,5,$80,%down,1}    //村子
  3390.                 &on
  3391.                 !qcs0
  3392.             }&else{
  3393.                 &pcm 18
  3394.                 !o1b2s0j1これ以上持てません！j0b5p
  3395.                 !o1s24「なんでえ、持ってないのかよ。じゃあ、また今度ね。qcs0
  3396.             }
  3397.         }&else{
  3398.             !;なんでえ、つまんねえの。qcs0
  3399.         }
  3400.         &&
  3401.     }
  3402.     &if(Ａ>260){
  3403.         !o1s24「砂漠には、海の遺跡に続く入口があるんだぜ。qcs0
  3404.     }&else{
  3405.         &if(蛙==1){
  3406.             !o1s24「うおお！カエルだぁ！かっちょええ！qcs0
  3407.         }&else{
  3408.             !o1s24「わー、とんがりあたまぁ。qcs0
  3409.         }
  3410.     }
  3411. #10    &if(%haveitem(オールトの指輪)==1){
  3412.         &jsr 水晶飛
  3413.     }
  3414. #11
  3415. #12
  3416. #13
  3417. #14
  3418. #15
  3419. #16
  3420. #17
  3421. #18    !o1b0s0j2セイロン:b5s21j0「ドラゴンの卵・・・。p;この村でも誰も知らないようです。qcs0
  3422.  
  3423. #@0    &if(%direc<0){
  3424.         &se 30
  3425.         &goto2 フィールド,@13,%down
  3426.     }
  3427. #@9    &if(%direc<0){
  3428.         %manpoint(9)={10,13}
  3429.         &on
  3430.         &pcm 1
  3431.         &goto2 村＿中,@20,%up
  3432.     }
  3433. #@11    &if(%direc<0){
  3434.         %manpoint(9)={24,13}
  3435.         &on
  3436.         &pcm 1
  3437.         &goto2 村＿中,@21,%up
  3438.     }
  3439. #@12    &if(%direc<0){
  3440.         %manpoint(9)={37,16}
  3441.         &on
  3442.         &pcm 1
  3443.         &goto2 村＿中,@22,%up
  3444.     }
  3445. #@13    &if(%direc<0){
  3446.         %manpoint(9)={52,22}
  3447.         &on
  3448.         &pcm 1
  3449.         &goto2 村＿中,@23,%up
  3450.     }
  3451. #@14    &if(%direc<0){
  3452.         &if(オルゴール==3){
  3453.             I=1234
  3454.         }
  3455.         %manpoint(9)={11,30}
  3456.         &on
  3457.         &pcm 1
  3458.         &goto2 村＿中,@24,%up
  3459.     }
  3460. #@15    &if(%direc<0){
  3461.         %manpoint(9)={10,58}
  3462.         &on
  3463.         &pcm 1
  3464.         &goto2 村＿中,@25,%up
  3465.     }
  3466. #@16    &if(%direc<0){
  3467.         %manpoint(9)={19,58}
  3468.         &on
  3469.         &pcm 1
  3470.         &goto2 村＿中,@26,%up
  3471.     }
  3472. #@17    &if(%direc<0){
  3473.         %manpoint(9)={55,58}
  3474.         &on
  3475.         &pcm 1
  3476.         &goto2 村＿中,@27,%up
  3477.     }
  3478.  
  3479.  
  3480. //-------------------------------------------------------------------
  3481. [村＿中]
  3482. //-------------------------------------------------------------------
  3483.     &mapsp SPP\MATI_I.SPP
  3484.     &mappal PAL\MATI_I.PAL
  3485.     &map MAP\MURA.MAP
  3486.     &partyspeed 1
  3487.     &if(Ａ!=260 and %nowbgm!=22 and I!=1234){
  3488.         &bgm 22
  3489.     }
  3490.     &if(I==1234){
  3491.         &bgm 48
  3492.     }
  3493.  
  3494.     %mandef(11)={$D,5,$20,%down,3}    //村女２
  3495.     %mandef(12)={$D,5,$00,%left,0}    //村長
  3496.     %mandef(13)={$D,5,$C0,%down,0}    //村商人
  3497.     %mandef(14)={$D,5,$20,%down,0}    //村女２
  3498.     %mandef(15)={$D,5,$60,%left,0}    //村女１
  3499.     %mandef(16)={$C,6,$E0,%down,2}    //黒猫
  3500.     %mandef(17)={$D,5,$20,%down,0}    //村女２
  3501.     %mandef(18)={$D,5,$40,%down,0}    //村男
  3502.     %mandef(19)={$B,6,$20,%down,2}    //メラン
  3503.     %mandef(20)={$6,7,$C0,%down,0}    //置き時計
  3504.     %mandef(22)={$1,1,$00,%down,-1}    //鐘（透明）
  3505.     %mandef(23)={$E,7,$EC,%down,0}    //暖炉
  3506.     %mandef(24)={$E,7,$EC,%down,0}    //暖炉
  3507.     %mandef(25)={$E,7,$EC,%down,0}    //暖炉
  3508.     %mandef(26)={$E,7,$EC,%down,0}    //暖炉
  3509.     %mandef(27)={$E,7,$EC,%down,0}    //暖炉
  3510.     %mandef(29)={$D,5,$40,%up,0}    //村男
  3511.     &if(クミン==1){
  3512.         %manpoint(18)={100,100}
  3513.         %mandef(21)={$E,1,$CB,%down,-1}    //宝箱（開）
  3514.     }&else{
  3515.         %mandef(21)={$E,1,$CA,%down,-1}    //宝箱（閉）
  3516.     }
  3517.     &if(ビン>0){
  3518.         %mandef(30)={$D,5,$40,%down,0}    //村男
  3519.     }
  3520.     &if(宝06==0){
  3521.         %mandef(28)={$E,1,$CA,%down,-1}    //宝箱（閉）
  3522.     }&else{
  3523.         %mandef(28)={$E,1,$CB,%down,-1}    //宝箱（開）
  3524.     }
  3525.     &if(Ａ>160){
  3526.         %manpoint(19)={100,100}
  3527.     }
  3528.     &if(Ａ!=260 and Ａ!=265){
  3529.         %manpoint(29)={100,100}
  3530.     }
  3531.     &if(Ａ==265){
  3532.         %manpoint(13)={27,98}
  3533.     }
  3534.     &if(Ａ>=180){
  3535.         %manpoint(19)={100,100}
  3536.     }
  3537.     &on
  3538.  
  3539. #11    &if(Ａ>260){
  3540.         !o1s24「この頃、物がよくなくなるのよねぇ。qcs0
  3541.     }&else{
  3542.         !o1s24「あら、いらっしゃい。qcs0
  3543.     }
  3544. #12    &if(%haveitem(白い鍵玉)==1){
  3545.         !o1b0s0j2村長:b5s23j0「その白い鍵玉は？p;そうか、モンスターの洞窟にあったか。
  3546.         !それが村の宝なんだ。自由に使ってくれていいよ。qcs0
  3547.         &manmove 12,-4
  3548.         &&
  3549.     }
  3550.     &if(Ａ>=265 and %haveitem(ケレスの鍵)==0){
  3551.         !o1b0s0j2村長:b5s23j0「聞いたよ。君達がモンスターを倒してくれたんだって？
  3552.         &if(%inkeyn==0){
  3553.             !;やっぱり、そうか。
  3554.         }&else{
  3555.             !;謙遜するなよ。
  3556.         }
  3557.         !私からも君達にお礼がしたいんだが、村の宝の入った宝箱が盗まれてしまってな。p;
  3558.         !宝箱はこれで開けられるんだが。p
  3559.         &if(%rasthaveitem>0){
  3560.             &partyitemin (ケレスの鍵)
  3561.             !o1s0j2i(ケレスの鍵)j0を手に入れた！p
  3562.             !o1b0s0j2村長:b5s23j0「これで開く宝箱の中身は全て自由に使ってくれていいぞ。qcs0
  3563.         }&else{
  3564.             &pcm 18
  3565.             !o1b2s0j1これ以上持てません！j0b5p
  3566.             !o1s23「なんだ、持てないのか。ではまた来てくれ。qcs0
  3567.         }
  3568.         &manmove 12,-4
  3569.         &&
  3570.     }
  3571.     &if(Ａ>110){
  3572.         &if(%haveitem(ケレスの鍵)==1){
  3573.             !o1b0s0j2村長:b5s23j0「鍵は役に立ってるかい？qcs0
  3574.         }&else{
  3575.             !o1b0s0j2村長:b5s23j0「ムーンダストの種は大切にしてくれよ。qcs0
  3576.         }
  3577.     }
  3578.     &if(Ａ==100){
  3579.         !o1b0s0j2村長:b5s23j0「よし、約束だ。ムーンダストの種を差しあげよう。ps0
  3580.         !o1j2i(ムーンダストの種)j0を手に入れた！qc
  3581.         &partyitemin (ムーンダストの種)
  3582.         Ａ=110
  3583.     }
  3584.     &if(Ａ==110){
  3585.         !o1b0s0j2村長:b5s23j0「ところで、ムーンダストは芽を出すまで１２年、
  3586.         !花を付けるまで更に８年掛かる。p;ということは知っているのかな。ps0
  3587.         !o1b0s0j2|2:b5s23j0「なんだと！それじゃ間に合わないじゃないか。どうすればいいんだ。qcs0
  3588.     }
  3589.     &if(Ａ==90){
  3590.         !o1b0s0j2村長:b5s23j0「この国の東に、機械なら何でも修理できる人がいると聞いたことがあるのだが。ps0
  3591.         !o1b0s0j2|2:b5s23j0「・・・・・・。qcs0
  3592.     }
  3593.     &if(Ａ==85){
  3594.         !o1b0s0j2村長:b5s23j0「そうだ、そこの時計を直してくれたら考えてもいいぞ。p;
  3595.         !本当なら白い鳥が時刻を告げてくれるんだが、壊れてしまったようなんだ。qcs0
  3596.         Ａ=90
  3597.     }
  3598.     &if(Ａ<=80){
  3599.         !o1b0s0j2村長:b5s23j0「いかにも、私が村長だが。;
  3600.         !なに、ムーンダストの種？ああ、確かに持っているが。p;
  3601.         !貴重な物なのでな、ただで差しあげる訳にはいかないな。qcs0
  3602.         Ａ=85
  3603.     }
  3604.     &manmove 12,-4
  3605. #13    &if(Ａ==265){
  3606.         &if(%haveitem(赤紫色の石塊)==1){
  3607.             !o1s23「これから、あんたらには安く売るよ。qcs0
  3608.         }&else{
  3609.             !o1s23「これを貰ってくれよ。p
  3610.             &if(%rasthaveitem>0){
  3611.                 &partyitemin (赤紫色の石塊)
  3612.                 !o1s0j2i(赤紫色の石塊)j0を手に入れた！p
  3613.                 !o1s23「こう見えても、結構値の張る物なんだ。p;
  3614.                 !命の恩だ、もっとお礼をしないとな。
  3615.                 !そうだ！これから、うちの店の物は安く売ってやるよ。qcs0
  3616.             }&else{
  3617.                 &pcm 18
  3618.                 !o1b2s0j1これ以上持てません！j0b5p
  3619.                 !o1s23「持てないのかい。じゃあ、また来てくれよ。qcs0
  3620.             }
  3621.         }
  3622.         &manmove 13,-2
  3623.         &&
  3624.     }
  3625.     &if(%direc!=8){
  3626.         &if(Ａ>265){
  3627.             !o1s23「この前はありがとう。qcs0
  3628.         }&else{
  3629.             !o1s23「南の砂漠に行くなら、うちで装備を整えて行きな。qcs0
  3630.         }
  3631.         &manmove 13,-2
  3632.     }&else{
  3633.         !o1s23「いらっしゃい！何のご用かな？
  3634.         %shoplist={薪割り斧,大金づち,魔導士の杖,魔導士の盾,鋼鉄の盾}
  3635.         I=23
  3636.         &jsr 店
  3637.         !o1s23「またどうぞ！qcs0
  3638.     }
  3639. #14    &if(Ａ==265){
  3640.         !o1s24「ほんとに、ありがとうございました。qcs0
  3641.         &&
  3642.     }
  3643.     &if(%direc!=8){
  3644.         !o1s24「体力回復にはケレスの葉が一番ですよ。qcs0
  3645.         &manmove 14,-2
  3646.     }&else{
  3647.         !o1s24「いらっしゃいませ。
  3648.         %shoplist={パン,ケレスの葉,ケレスの服,ケレスの守り,ケレスの帽子}
  3649.         I=24
  3650.         &jsr 店
  3651.         !o1s24「ありがとうございました。qcs0
  3652.     }
  3653. #15    !o1s24「いらっしゃい。;
  3654.     !一泊４０Ｇですが、お泊まりになりますか？g;
  3655.     &se 2
  3656.     %selectlist={泊まる,旅の記録,やめる}
  3657.     &switch(%select){
  3658.     &default:
  3659.         &break
  3660.     &case 0:
  3661.         &if(%gold<40){
  3662.             !お金が足りませんよ。qcs0
  3663.             &&
  3664.         }
  3665.         %gold=%gold-40
  3666.         &jsr 宿
  3667.         &link 100
  3668.     &case 1:
  3669.         !旅の記録ですね。p
  3670.         %partynamedef(0)=ケレス村
  3671.         &save 100,11,143,-%right
  3672.         !o1s24「
  3673.     }
  3674.     !それでは、お気をつけて。qcs0
  3675.     &manmove 15,-4
  3676. #16    !o1s0
  3677.     &if(Ｂ>=50){
  3678.         !b0j2ハグン:b5j0
  3679.     }
  3680.     &pcm 6
  3681.     !「にゃー。qc
  3682. #17    &if(%haveitem(壊れたオルゴール)==1){
  3683.         !o1s24「あら、それは、なくなったオルゴール。ふ～ん、モンスターの洞窟にあったの？p;
  3684.         !届けてもらったのに悪いけど、それ、壊れてるから、もういらないのよ。p;
  3685.         !大切なオルゴールだったんだけど・・・、もういいの。qcs0
  3686.         オルゴール=1
  3687.         &&
  3688.     }
  3689.     &if(%haveitem(綺麗なオルゴール)==1){
  3690.         !o1s24「あら、そのオルゴール、直してくれたの？p
  3691.         &partyitemout 綺麗なオルゴール
  3692.         !o1s0j2i(綺麗なオルゴール)j0を渡した！p
  3693.         &pcm 16
  3694.         &wait 20
  3695.         &bgm 48
  3696.         !o1s24「うわぁ、嬉しい。本当にありがとう。p;そうだわ、お礼に、これあげる。p
  3697.         &partyitemin とんがり帽子
  3698.         !o1s0j2i(とんがり帽子)j0を手に入れた！p
  3699.         !o1s24「あなたに、似合うと思って。qcs0
  3700.         オルゴール=2
  3701.         &&
  3702.     }
  3703.     &if(オルゴール==2){
  3704.         !o1s24「ありがとう。qcs0
  3705.         &&
  3706.     }
  3707.     &if(オルゴール==3){
  3708.         !o1s24「あれから、いつも聞いてるのよ、このオルゴール。qcs0
  3709.         I=0
  3710.     }&else{
  3711.         !o1s24「あらら、フライパンはどこに置いたのかしら？qcs0
  3712.     }
  3713. #18    &switch(クミン){
  3714.     &default:
  3715.         &break
  3716.     &case 0:
  3717.         !o1b0s0j2クミン:b5s23j0「僕は着ぐるみ師のクミン。;
  3718.         !へえ、金属製の着ぐるみかぁ。すごいなぁ。
  3719.     -1if(%haveitem(伝説の着ぐるみ)==1 and Ａ>=290){
  3720.             !;ちょ、ちょっと、それ、伝説の着ぐるみじゃないか？p;
  3721.             !へえ、すごいなあ。それ、着てみないかい？僕なら着せられるよ。
  3722.             &if(%inkeyn==0){
  3723.                 !;よし。じゃあ、ちょっと貸して。p
  3724.                 !o1s0j2i(伝説の着ぐるみ)j0を４つ渡した！
  3725.                 &partyitemout 伝説の着ぐるみ
  3726.                 &partyitemout 伝説の着ぐるみ
  3727.                 &partyitemout 伝説の着ぐるみ
  3728.                 &partyitemout 伝説の着ぐるみ
  3729.                 !p
  3730.                 !o1b0s0j2クミン:b5s23j0「・w・w・w
  3731.                 %partydef(1)={$E,7,$80,-1,-1,-1,-1,-1,-1,-1}
  3732.                 %partydef(4)={$A,7,$80,-1,-1,-1,-1,-1,-1,-1}
  3733.                 %partydef(5)={$A,7,$80,-1,-1,-1,-1,-1,-1,-1}
  3734.                 %partydef(6)={$A,7,$80,-1,-1,-1,-1,-1,-1,-1}
  3735.                 &on
  3736.                 蛙=1
  3737.                 !よし、これでＯＫだよ。p;
  3738.                 !じゃあ、僕、ちょっと用事があるから・・・。p
  3739.                 &manmove 18,8,8,-6
  3740.                 %mandef(21)={$E,1,$CB,%down,-1}    //宝箱（開）
  3741.                 &se 31
  3742.                 &on
  3743.                 &manmove 18,2,2,6,6,2,2,2,2,2,2,2,2,2
  3744.                 &se 13
  3745.                 %manpoint(18)={100,100}
  3746.                 クミン=1
  3747.                 &partymove -2
  3748.                 !o1b0s0j2|2:b5s23j0「どうしたんだ、アイツ？あんなに慌てて。p
  3749.                 !o1b0s0j2|5:b5s24j0「ねえ、これ歩きにくくない？p
  3750.                 !o1b0s0j2|4:b5s23j0「おい、これ、どうやって脱ぐんだよ。p
  3751.                 !o1b0s0j2|2:b5s23j0「もしかして、アイツ・・・。p
  3752.             }&else{
  3753.                 !;着ないのかい？もったいないなぁ。
  3754.             }
  3755.         }
  3756.         !qcs0
  3757.         &break
  3758.     &case 2:
  3759.         !o1b0s0j2クミン:b5s23j0「わ、悪かった。謝るよ。p;
  3760.         !ええと、脱ぐんだったね。p;
  3761.         &if(%rasthaveitem>=4){
  3762.             !・w・w・w
  3763.             %partydef(1)={$C,0,$40,-1,-1,-1,-1,-1,-1,-1}
  3764.             %partydef(4)={$B,1,$40,-1,-1,-1,-1,-1,-1,-1}
  3765.             %partydef(5)={$B,1,$60,-1,-1,-1,-1,-1,-1,-1}
  3766.             %partydef(6)={$B,1,$80,-1,-1,-1,-1,-1,-1,-1}
  3767.             &on
  3768.             蛙=0
  3769.             !はい、これでＯＫ。p;
  3770.             &partyitemin 伝説の着ぐるみ
  3771.             &partyitemin 伝説の着ぐるみ
  3772.             &partyitemin 伝説の着ぐるみ
  3773.             &partyitemin 伝説の着ぐるみ
  3774.             !o1s0j2i(伝説の着ぐるみ)j0を４つ手に入れた！p
  3775.             !o1b0s0j2クミン:b5s23j0「着たい時は、いつでも言ってよ。大丈夫。もう、逃げたりなんかしないから。qcs0
  3776.             クミン=3
  3777.         }&else{
  3778.             &pcm 18
  3779.             !o1b2s0j1これ以上持てません！j0b5p
  3780.             !o1b0s0j2クミン:b5s23j0「持ち物を４つ減らしてくれないと、悪いけど、脱がせられないよ。qcs0
  3781.         }
  3782.         &break
  3783.     &case 3:
  3784.         &if(%haveitem(伝説の着ぐるみ)==1){
  3785.             !o1b0s0j2クミン:b5s23j0「伝説の着ぐるみを着るのかい？
  3786.             &if(%inkeyn==0){
  3787.                 !;よし。じゃあ、ちょっと貸して。p
  3788.                 !o1s0j2i(伝説の着ぐるみ)j0を４つ渡した！
  3789.                 &partyitemout 伝説の着ぐるみ
  3790.                 &partyitemout 伝説の着ぐるみ
  3791.                 &partyitemout 伝説の着ぐるみ
  3792.                 &partyitemout 伝説の着ぐるみ
  3793.                 !p
  3794.                 !o1b0s0j2クミン:b5s23j0「・w・w・w
  3795.                 %partydef(1)={$E,7,$80,-1,-1,-1,-1,-1,-1,-1}
  3796.                 %partydef(4)={$A,7,$80,-1,-1,-1,-1,-1,-1,-1}
  3797.                 %partydef(5)={$A,7,$80,-1,-1,-1,-1,-1,-1,-1}
  3798.                 %partydef(6)={$A,7,$80,-1,-1,-1,-1,-1,-1,-1}
  3799.                 &on
  3800.                 蛙=1
  3801.                 !はい、これでＯＫ。qcs0
  3802.             }&else{
  3803.                 !;着たくなったら、いつでも来てよ。qcs0
  3804.             }
  3805.         }&else{
  3806.             !o1b0s0j2クミン:b5s23j0「伝説の着ぐるみを脱ぐのかい？
  3807.             &if(%inkeyn==0){
  3808.                 &if(%rasthaveitem>=4){
  3809.                     !・w・w・w
  3810.                     %partydef(1)={$C,0,$40,-1,-1,-1,-1,-1,-1,-1}
  3811.                     %partydef(4)={$B,1,$40,-1,-1,-1,-1,-1,-1,-1}
  3812.                     %partydef(5)={$B,1,$60,-1,-1,-1,-1,-1,-1,-1}
  3813.                     %partydef(6)={$B,1,$80,-1,-1,-1,-1,-1,-1,-1}
  3814.                     &on
  3815.                     蛙=0
  3816.                     !はい、これでＯＫ。p;
  3817.                     &partyitemin 伝説の着ぐるみ
  3818.                     &partyitemin 伝説の着ぐるみ
  3819.                     &partyitemin 伝説の着ぐるみ
  3820.                     &partyitemin 伝説の着ぐるみ
  3821.                     !o1s0j2i(伝説の着ぐるみ)j0を４つ手に入れた！qcs0
  3822.                 }&else{
  3823.                     &pcm 18
  3824.                     !o1b2s0j1これ以上持てません！j0b5p
  3825.                     !o1b0s0j2クミン:b5s23j0「持ち物を４つ減らしてくれないと、悪いけど、脱がせられないよ。qcs0
  3826.                 }
  3827.             }&else{
  3828.                 !;脱ぎたくなったら、いつでも来てよ。qcs0
  3829.             }
  3830.         }
  3831.         &break
  3832.     }
  3833.     &manmove 18,-2
  3834. #19    !o1s24「ユニバニアのイベントに出場するために来たの。
  3835.     !仲間が先に着いてるはずなんだけど・・・。p;おかしいなぁ。qcs0
  3836. #20    &if(Ａ<90){
  3837.         !o1s0大きな時計だ。qc
  3838.         &&
  3839.     }
  3840.     &if(%haveitem(銀の歯車)==1 and 歯車==0){
  3841.         &partyset 2,1
  3842.         !o1b0s0j2|2:b5s23j0「さてと。pcs0
  3843.         %mandef(20)={$6,7,$C6,%down,-1}    //置き時計（歯車）
  3844.         &on
  3845.         &wait 50
  3846.         &partyitemout 銀の歯車
  3847.         !o1s0j2i(銀の歯車)j0を使った！p
  3848.         !o1b0s0j2|2:b5s23j0「おっ、想った通りピッタリだ。;あとは、ちゃんと動くかどうかだな。pcs0
  3849.         %mandef(20)={$6,7,$C0,%down,0}    //置き時計
  3850.         &on
  3851.         &wait 50
  3852.         歯車=1
  3853.         Ａ=95
  3854.     }
  3855.     &if(Ａ>=90 and 歯車==0){
  3856.         &partyset 2,1
  3857.         !o1b0s0j2|2:b5s23j0「どれどれ。pcs0
  3858.         %mandef(20)={$6,7,$C6,%down,-1}    //置き時計（歯車）
  3859.         &on
  3860.         &wait 50
  3861.         !o1s0歯車が１枚、欠けているようだ。pc
  3862.         %mandef(20)={$6,7,$C0,%down,0}    //置き時計
  3863.         &on
  3864.         &wait 50
  3865.         &partymove -2
  3866.         !o1b0s0j2|2:b5s23j0「ほんと、博士がいれば、こんな物簡単に直せるのにな。p;
  3867.         !銀製の歯車か・・・。wん？どこかで見たような気がしないか？qcs0
  3868.         &&
  3869.     }
  3870.     &if(歯車==1){
  3871.         I=0
  3872.         %mandef(20)={$6,7,$C7,%down,-1}    //置き時計（半開き）
  3873.         &on
  3874.         &wait 10
  3875.         &se 15
  3876.         &label
  3877.         &if(I<10){
  3878.             &wait 20
  3879.             %mandef(20)={$6,7,$C4,%down,-1}    //置き時計（鳩１）
  3880.             &on
  3881.             &wait 20
  3882.             %mandef(20)={$6,7,$C5,%down,-1}    //置き時計（鳩２）
  3883.             &on
  3884.             I++
  3885.             &jmp @b
  3886.         }
  3887.         %mandef(20)={$6,7,$C7,%down,-1}    //置き時計（半開き）
  3888.         &on
  3889.         &wait 20
  3890.         %mandef(20)={$6,7,$C0,%down,0}    //置き時計
  3891.         &on
  3892.     }
  3893.     &if(Ａ==95){
  3894.         &manmove 12,-8
  3895.         !o1b0s0j2村長:b5s23j0「おお！直った、直った。pcs0
  3896.         &partymove 4,4,2
  3897.         Ａ=100
  3898.         &link 27
  3899.     }
  3900. #21    &if(クミン==1){
  3901.         &jsr 空
  3902.     }&else{
  3903.         %mandef(21)={$E,1,$CB,%down,-1}    //宝箱（開）
  3904.         &se 31
  3905.         &on
  3906.         !o1s0j2ウサギの着ぐるみj0を見つけた！p
  3907.         &manmove 18,-6
  3908.         !o1b0s0j2クミン:b5s23j0「ちょっとちょっと、勝手に人の物を取らないでくれよ！qcs0
  3909.         %mandef(21)={$E,1,$CA,%down,-1}    //宝箱（閉）
  3910.         &on
  3911.         &manmove 18,-2
  3912.     }
  3913. #22    !o1s0鐘がある。鳴らしてみる？
  3914.     &if(%inkeyn==0){
  3915.         !c
  3916.         &pcm 14
  3917.         &wait 50
  3918.         &pcm 14
  3919.         !o1s23「おい！;
  3920.         &partymove 2,2,2,2,4,4,6,6,8,8,8,8,-4
  3921.         &se 27
  3922.         &wait 75
  3923.         %manpoint(29)={32,114-109}
  3924.         &on
  3925.         &manmove 29,6
  3926.         !何もないのに鐘を鳴らすな！;鐘は非常時に鳴らすもんだ。pcs0
  3927.         &manmove 29,4,-8
  3928.         &se 28
  3929.         %manpoint(29)={100,100}
  3930.         &on
  3931.     }
  3932. #23
  3933. #24
  3934. #25
  3935. #26
  3936. #27
  3937. #28    &if(宝06==0){
  3938.         鍵=ケレスの鍵
  3939.         宝=ケレスのマント
  3940.         &jsr 鍵宝箱
  3941.         &if(宝箱フラグ==1){
  3942.             宝06=1
  3943.         }
  3944.     }&else{
  3945.         &jsr 空
  3946.     }
  3947. #29    &if(%nowbgm==0){
  3948.         !o1s23「よかった、よかった。qcs0
  3949.         &&
  3950.     }
  3951.     &if(Ａ==260){
  3952.         !o1s23「たいへんだぁ～。モンスターに武器屋のおやじが捕まっちまったぁ。p;
  3953.         !お前たち、助けを呼んで来てくれね～か。qcs0
  3954.         &manmove 29,-8
  3955.     }
  3956.     &if(Ａ==265){
  3957.         !o1s23「なんだ、お前達がモンスターを倒したって？本当か？
  3958.         &if(%inkeyn==0){
  3959.             !;ふう、よかった。p;じゃあ、もう鐘を叩かないでいいんだな。qcs0
  3960.             &bgm -1
  3961.         }&else{
  3962.             !;こんな時に冗談を言うな。早く助けを呼んで来るんだ。qcs0
  3963.             &manmove 29,-8
  3964.         }
  3965.     }
  3966. #30    &if(ビン==1){
  3967.         !o1s23「洞窟ではありがとう。いやあ、ほんと、助かったよ。p;
  3968.         !あれは、オアシスの水でね、ケレスの葉を作るのに必要なんだ。p;
  3969.         !そうだ。良かったら、これ使ってよ。
  3970.         &if(%rasthaveitem>0){
  3971.             &partyitemin (聖水のビン)
  3972.             !o1s0j2i(聖水のビン)j0を手に入れた！p
  3973.             ビン=2
  3974.             &link 30
  3975.         }&else{
  3976.             &pcm 18
  3977.             !o1b2s0j1これ以上持てません！j0qcb5p
  3978.             !o1s23「なんだ、持てないの？じゃあ、また来てよ。qcs0
  3979.         }
  3980.     }&else{
  3981.         !o1s23「オアシスの水はね、普通のビンで汲むと効力を失ってしまうんだ。p;
  3982.         !でも、その聖水のビンなら大丈夫。p;それでも、魔力回復の効力はなくなってしまうけどね。qcs0
  3983.     }
  3984. #100    &jsr 装備切り換え
  3985.     &bgm 22
  3986.     !o1s24「おはようございます。;それでは、お気をつけて。qcs0
  3987.     &manmove 15,-4
  3988.  
  3989. #@20    &if(%direc<0){
  3990.         &se 30
  3991.         &goto2 村,@9,%down
  3992.     }
  3993. #@21    &if(%direc<0){
  3994.         &if(Ａ==265 and %haveitem(赤紫色の石塊)==1){
  3995.             Ａ=270
  3996.         }
  3997.         &se 30
  3998.         &goto2 村,@11,%down
  3999.     }
  4000. #@22    &if(%direc<0){
  4001.         &se 30
  4002.         &goto2 村,@12,%down
  4003.     }
  4004. #@23    &if(%direc<0){
  4005.         &se 30
  4006.         &goto2 村,@13,%down
  4007.     }
  4008. #@24    &if(%direc<0){
  4009.         &if(オルゴール==2){
  4010.             オルゴール=3
  4011.         }
  4012.         &if(%nowbgm!=22){
  4013.             &bgm 22
  4014.         }
  4015.         &se 30
  4016.         &goto2 村,@14,%down
  4017.     }
  4018. #@25    &if(%direc<0){
  4019.         &se 30
  4020.         &goto2 村,@15,%down
  4021.     }
  4022. #@26    &if(%direc<0){
  4023.         &se 30
  4024.         &goto2 村,@16,%down
  4025.     }
  4026. #@27    &if(%direc<0){
  4027.         &se 30
  4028.         &goto2 村,@17,%down
  4029.     }
  4030. #@30    &if(%direc<0){
  4031.         &partymove -8
  4032.         &contrast 0
  4033.         &se 27
  4034.         &wait 150
  4035.         &mappal PAL\MATI_S.PAL
  4036.         &move @31,%up
  4037.     }
  4038. #@31    &if(%direc<0){
  4039.         &partymove -8
  4040.         &contrast 0
  4041.         &se 28
  4042.         &wait 120
  4043.         &mappal PAL\MATI_I.PAL
  4044.         &move @30,%up
  4045.     }
  4046. #@32    &if(%direc<0){
  4047.         &contrast 0
  4048.         &se 27
  4049.         &wait 150
  4050.         &mappal PAL\MATI_S.PAL
  4051.         &move @33,%up
  4052.     }
  4053. #@33    &if(%direc<0){
  4054.         &contrast 0
  4055.         &se 28
  4056.         &wait 120
  4057.         &mappal PAL\MATI_I.PAL
  4058.         &move @32,%down
  4059.     }
  4060.  
  4061.  
  4062. //-------------------------------------------------------------------
  4063. [研究所]
  4064. //-------------------------------------------------------------------
  4065.     &mapsp SPP\KENKYU.SPP
  4066.     &mappal PAL\KENKYU.PAL
  4067.     &map MAP\KENKYU.MAP
  4068.     &jsr 大
  4069.     %partypoint={@5,-%up}
  4070.     &if(%nowbgm!=12){
  4071.         &bgm 12
  4072.     }
  4073.  
  4074.     &if(%haveitem(パン)==1 and Ａ<20){
  4075.         %mandef(1)={$C,0,$80,%down,0}    //ジオット
  4076.         %mandef(2)={$B,0,$AE,%down,-1}    //？
  4077.         %mandef(3)={$B,0,$AE,%down,-1}    //？
  4078.         %manpoint(1)={37,21}
  4079.         %manpoint(2)={100,100}
  4080.         %manpoint(3)={100,100}
  4081.     }
  4082.     %mandef(4)={$9,0,$C0,%up,0}    //パラボラ
  4083.     %mandef(9)={$F,1,$C1,%down,-1}    //ドア（開）
  4084.     %mandef(10)={$C,0,$C0,%down,0}    //クロ（溺）
  4085.     %manpoint(9)={100,100}
  4086.     %manpoint(10)={100,100}
  4087.     &on
  4088.  
  4089. #1    !o1b0s0j2ジオット:b6s20j0「お帰り。パンは買って来れたかの？
  4090.     &if(%inkeyn==0){
  4091.         !;ふむ。買って来とるな。ありがとう。ps0b5
  4092.     }&else{
  4093.         !;ん？買って来とるじゃないか。ありがとう。ps0b5
  4094.     }
  4095.     &partyitemout パン
  4096.     %manpoint(10)={26,0}
  4097.     &on
  4098.     !o1s0j2(パン)j0を渡した！pc
  4099.     &manmove 10,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  4100.     &manmove 1,-4,-8
  4101.     %manpoint(2)={37,18}
  4102.     &on
  4103.     &pcm 22
  4104.     !o1b0s0j2ジオット:b6s20j0「ん？pcs0
  4105.     %manpoint(2)={100,100}
  4106.     &on
  4107.     &manmove 1,-4
  4108.     %mandef(1)={$C,0,$80,%left,-1}    //ジオット
  4109.     %mandef(2)={$B,0,$AF,%down,-1}    //！
  4110.     %manpoint(1)={37,20}
  4111.     %manpoint(2)={37,17}
  4112.     &on
  4113.     &pcm 22
  4114.     &wait 10
  4115.     %mandef(1)={$C,0,$80,%left,0}    //ジオット
  4116.     %manpoint(1)={37,21}
  4117.     %manpoint(2)={37,18}
  4118.     &on
  4119.     !o1b0s0j2ジオット:b5s20j0「ク、クロッ！pcs0
  4120.     %manpoint(2)={100,100}
  4121.     &on
  4122.     &partymove -4
  4123.     %mandef(1)={$C,0,$80,%left,1}    //ジオット
  4124.     %manpoint(3)={%px,%py-2}
  4125.     &on
  4126.     &pcm 22
  4127.     &manmove 1,4,4,4,4,4,4,4,4
  4128.     %mandef(1)={$C,0,$80,%down,0}    //ジオット
  4129.     %manpoint(3)={100,100}
  4130.     &on
  4131.     !o1b0s0j2ジオット:b5s20j0「どうしたんじゃ？クロ。ps0
  4132.     !o1b0s0j2|2:b5s20j0「う、うげ～。ps0
  4133.     !o1b0s0j2ジオット:b5s20j0「とにかく、修理じゃ。;
  4134.     &manmove 1,-6
  4135.     !タマ、運ぶのを手伝っておくれ。pcs0
  4136.     &partyspeed 1
  4137.     &manmove 1,-4
  4138.     &contrast 0
  4139.     &partymove 4,4,4,4,4,4
  4140.     &partyspeed 2
  4141.     Ａ=18
  4142.     &bgm -1
  4143.     &goto 研究所＿中
  4144. #4
  4145.  
  4146. #@0    &if(%direc<0){
  4147.         &se 29
  4148.         &goto2 フィールド,@1,%down
  4149.     }
  4150. #@3    &if(%direc<0){
  4151.         %manpoint(9)={37,19}
  4152.         &on
  4153.         &pcm 1
  4154.         &goto2 研究所＿中,@4,%up
  4155.     }
  4156.  
  4157.  
  4158. //-------------------------------------------------------------------
  4159. [研究所＿中]
  4160. //-------------------------------------------------------------------
  4161.     &mapsp SPP\KENKYU_I.SPP
  4162.     &mappal PAL\KENKYU_I.PAL
  4163.     &map MAP\KENKYU.MAP
  4164.     &partyspeed 1
  4165.  
  4166.     &if(Ａ==285){
  4167.         &bgm 12
  4168.         %partypoint={8,59,-%down}
  4169.         %mandef(14)={$C,0,$40,%right,0}    //タマ
  4170.         %mandef(15)={$B,1,$40,%left,0}    //ラズ
  4171.         %mandef(16)={$B,1,$60,%left,0}    //ストロ
  4172.         %mandef(17)={$B,1,$80,%left,0}    //グーズ
  4173.         %manpoint(14)={100,100}
  4174.         %manpoint(15)={7,53}
  4175.         %manpoint(16)={7,55}
  4176.         %manpoint(17)={7,57}
  4177.     }
  4178.     &if(Ａ==280){
  4179.         &bgm 12
  4180.         %partypoint={52,55,-%down}
  4181.         %mandef(7)={$C,0,$E0,%left,0}    //ジオット（作業）
  4182.         %mandef(8)={$C,0,$A8,%down,-1}    //タマ（寝）
  4183.         %manpoint(7)={52,53}
  4184.         %manpoint(8)={50,53}
  4185.     }
  4186.     &if(Ａ==0){
  4187.         &partyset 1
  4188.         %partypoint={7,51,-%up}
  4189.         &bgm 36
  4190.         &wait 400
  4191.         &bgm 12
  4192.     }
  4193.     &if(Ａ==18){
  4194.         %mandef(8)={$C,0,$E0,%right,0}    //ジオット（作業）
  4195.         %mandef(9)={$C,0,$C8,%down,0}    //クロ（寝）
  4196.         %manpoint(9)={55,53}
  4197.         &partyset 0
  4198.         %partypoint={52,53,%down}
  4199.     }
  4200.     &if(Ａ<30 or Ａ>=280){
  4201.         %mandef(1)={$C,0,$80,%down,0}    //ジオット
  4202.     }&else{
  4203.         %mandef(1)={$B,0,$AE,%down,-1}    //？
  4204.         %manpoint(1)={100,100}
  4205.     }
  4206.     &if(Ａ>=30){
  4207.         %mandef(2)={$E,1,$C0,%down,1}    //留守番くん
  4208.         %manpoint(2)={10,52}
  4209.     }
  4210.     &if(Ａ==30){
  4211.         &partyset 2,1
  4212.     }
  4213.     %mandef(3)={$B,0,$AF,%down,-1}    //！
  4214.     %manpoint(3)={100,100}
  4215.     &if(宝01==0){
  4216.         %mandef(6)={$E,1,$CA,%down,-1}    //宝箱（閉）
  4217.     }&else{
  4218.         %mandef(6)={$E,1,$CB,%down,-1}    //宝箱（開）
  4219.     }
  4220.     &if(Ａ>=280 and Ａ<=310){
  4221.         %mandef(9)={$C,0,$C0,%down,-1}    //クロ壊れ
  4222.         %mandef(10)={$C,0,$E1,%down,-1}    //クロ左足
  4223.         %mandef(11)={$C,0,$E3,%down,-1}    //クロ右足
  4224.         %mandef(12)={$C,0,$E2,%down,-1}    //クロ手
  4225.         %mandef(13)={$C,0,$E2,%down,-1}    //クロ手
  4226.         %manpoint(9)={55,53}
  4227.         %manpoint(10)={58,51}
  4228.         %manpoint(11)={57,52}
  4229.         %manpoint(12)={58,52}
  4230.         %manpoint(13)={57,50}
  4231.     }
  4232.     &if(Ａ>310){
  4233.         %mandef(9)={$C,0,$C8,%down,-1}    //クロ（寝）
  4234.         %manpoint(9)={55,53}
  4235.     }
  4236.  
  4237.     &on
  4238.  
  4239.     &if(Ａ==285){
  4240.         &partyspeed 2
  4241.         &se 17
  4242.         %manpoint(14)={3,56-35}
  4243.         &on
  4244.         &manmove 14,8,8,-6,-6
  4245.         !o1b0s0j2|4:b5s20j0「よう、クロ、どうだい気分は？p
  4246.         !o1b0s0j2|2:b5s20j0「妙な気分だ。p
  4247.         !o1b0s0j2|4:b5s20j0「オレ達も話を聞いた時はびっくりしたぜ。p
  4248.         !o1b0s0j2|5:b5s21j0「不思議よね。１つの体に２つの心が入っていることになるのかしら？p
  4249.         !o1b0s0j2|6:b5s20j0「・・・かしら。p
  4250.         !o1b0s0j2ジオット:b6s20j0「そうじゃな、２つの魂、じゃな。pc
  4251.         &manmove 15,4,4,-2
  4252.         !o1b0s0j2|4:b5s20j0「それより、どうするんだ？あの白ネコは。p
  4253.         &manmove 14,-2
  4254.         !o1b0s0j2|2:b5s20j0「忘れてた！そうだ、あの白ネコ！追いかけるに決まってるだろ！p
  4255.         &manmove 14,-6
  4256.         &manmove 15,-4
  4257.         !o1b0s0j2|4:b5s20j0「でも、どうやって追いかけるんだ？p
  4258.         &manmove 15,-8
  4259.         !o1b0s0j2ジオット:b6s20j0「そのことじゃが、ホロが観測所で待っとるぞ。p;何か考えがあるようじゃ。p
  4260.         &manmove 15,6,6,-4
  4261.         !o1b0s0j2|4:b5s20j0「よし、行こう。p
  4262.         &manmove 14,6,-6
  4263.         !o1b0s0j2|2:b5s20j0「何だ、お前らも来るのか？p
  4264.         !o1b0s0j2|4:b5s20j0「当たり前だろ。乗り掛かった船だ。p
  4265.         &manmove 17,-8
  4266.         !o1b0s0j2|6:b5s20j0「フネ？？p
  4267.         &manmove 17,-4
  4268.         !o1b0s0j2|5:b5s21j0「よろしくね。p
  4269.         &bgm 44
  4270.         !o1s0b2|4が仲間になった！！:
  4271.         !|5が仲間になった！！:
  4272.         !|6が仲間になった！！
  4273.         &partymove 4,8,8,8,8,8,8,8,8
  4274.         &manmove 14,8,8,6,6,6,-8
  4275.         &partyset 1,4,5,6
  4276.         %manpoint(14)={100,100}
  4277.         %manpoint(15)={100,100}
  4278.         %manpoint(16)={100,100}
  4279.         %manpoint(17)={100,100}
  4280.         &on
  4281.         &wait 120
  4282.         !pc
  4283.         &bgm 12
  4284.         &partyspeed 1
  4285.         !o1b0s0j2ジオット:b6s20j0「くれぐれも、無理はするでないぞ。pcb5
  4286.         Ａ=290
  4287.     }
  4288.     &if(Ａ==280){
  4289.         &partymove 4,6,4,6,4,6,4,6,4,6,4,6,4,6,4,6
  4290.         &freash 65490
  4291.         &partymove 4,6,4,6,4,6,4,6,4,6,4,6
  4292.         &manmove 7,6
  4293.         &partymove 4,6
  4294.         &manmove 7,4
  4295.         &partymove 4,6,4,6,4,6,4,6,4,6,4,6
  4296.         &freash 65490
  4297.         %mandef(7)={$C,0,$80,%left,0}    //ジオット
  4298.         %mandef(8)={$C,0,$A6,%down,-1}    //タマ（座）
  4299.         &on
  4300.         !o1b0s0j2ジオット:b6s20j0「気がついたようじゃな。どうじゃな、クロ？p
  4301.         !o1b0s0j2|2:b5s20j0「おはよう、博士。p;
  4302.         !・・・ええと、オレはどうなったんだ？確か白ネコに操られて・・・。p;
  4303.         !そうか、また博士が治してくれたのか・・・。pc
  4304.         %mandef(8)={$C,0,$A5,%down,-1}    //タマ（座）
  4305.         &on
  4306.         &wait 40
  4307.         %mandef(8)={$C,0,$A7,%down,-1}    //タマ（座）
  4308.         &on
  4309.         &wait 40
  4310.         %mandef(8)={$C,0,$A6,%down,-1}    //タマ（座）
  4311.         &on
  4312.         !o1b0s0j2|2:b5s20j0「わ、わ！まだ体が勝手に動くぞ。p
  4313.         %mandef(8)={$C,0,$A7,%down,-1}    //タマ（座）
  4314.         &on
  4315.         !o1b0s0j2ジオット:b6s20j0「どうじゃな、タマ。違和感はないかな？
  4316.         &if(%inkeyn==0){
  4317.             !;うむ。それは良かった。p
  4318.         }&else{
  4319.             !;慣れるまでしばらくの辛抱じゃ。我慢しとくれ。p
  4320.         }
  4321.         !o1b0s0j2|2:b5s20j0「ど、どうなってんだ？オレがタマの中に・・・。p
  4322.         !o1b0s0j2ジオット:b6s20j0「そうじゃ。p;これからしばらくの間、クロはタマの見たものを見、タマの聞いたものを聞くのじゃ。p
  4323.         !o1b0s0j2|2:b5s20j0「・・・・・・。p
  4324.         &manmove 7,-2
  4325.         !o1b0s0j2ジオット:b6s20j0「緊急だったのでな。心配せんでも、後でちゃんと元の体に戻す。p;
  4326.         &manmove 7,2,2,2,-8
  4327.         %mandef(8)={$C,0,$A4,%down,-1}    //タマ（座）
  4328.         &on
  4329.         !さあ、みんなが待っとるぞ。pc
  4330.         Ａ=285
  4331.         &bgm -1
  4332.         &jsr 闇
  4333.         &goto 研究所＿中
  4334.     }
  4335.     &if(Ａ==0){
  4336.         !o1b0s0j2ジオット:b6s20j0「おはよう、タマ。クロなら、もう観測所の手伝いに行っとるぞ。p;
  4337.         !今日はそうじゃの、タマには町に行ってパンを買って来てもらおうかの。p;頼んだぞ。qcs0b5
  4338.         Ａ=10
  4339.     }
  4340.     &if(Ａ==18){
  4341.         &partymove 4,6,4,6,4,6,4,6,4,6,4,6,4,6,4,6
  4342.         &freash 65490
  4343.         &partymove 4,6,4,6,4,6,4,6,4,6,4,6
  4344.         &freash 65490
  4345.         &partymove 4,6,4,6,4,6,4,6,4,6,4,6,4,6,4,6,4,6
  4346.         &freash 65490
  4347.         &jsr 闇
  4348.         &complete
  4349.         &bgm 36
  4350.         &wait 500
  4351.         %manpoint(8)={100,100}
  4352.         %manpoint(9)={100,100}
  4353.         &partyset 2,1
  4354.         &bgm 12
  4355.         &move 7,51,-%up
  4356.         !o1b0s0j2ジオット:b6s20j0「クロ、何があったのじゃ？ps0
  4357.         !o1b0s0j2|2:b5s20j0「う～ん、それが何も思い出せないんだ。
  4358.         !ホロの手伝いをしていたことまでは覚えてるんだけど・・・。ps0
  4359.         %manpoint(3)={7,46-34}
  4360.         &on
  4361.         &pcm 22
  4362.         !o1b0s0j2ジオット:b6s20j0「おぉ！p;
  4363.         %manpoint(3)={100,100}
  4364.         &on
  4365.         !そうじゃ、ホロを忘れとった。タマとクロで観測所を見てきておくれ。ps0
  4366.         !o1b0s0j2|2:b5s20j0「そうだな。あいつならオレに何があったのか知ってるはずだ。p;
  4367.         &partymove -2
  4368.         !よし、タマ行くぞ！ps0
  4369.         &bgm 44
  4370.         !o1s0b2|2が仲間になった！！
  4371.         &wait 350
  4372.         &bgm 12
  4373.         !p
  4374.         &partymove -8
  4375.         !o1b0s0j2ジオット:b6s20j0「頼んだぞ。qcs0b5
  4376.         Ａ=20
  4377.     }
  4378.     &if(Ａ==30){
  4379.         &partymove 8,8,8
  4380.         !o1b0s0j2|2:b5s20j0「博士ぇ～！pcs0
  4381.         &partymove 8,8,8,8
  4382.         %manpoint(1)={%px,%py-3-34}
  4383.         &on
  4384.         &pcm 22
  4385.         &partymove -4,-8,-6,-2
  4386.         %manpoint(1)={100,100}
  4387.         &on
  4388.         !o1b0s0j2|2:b5s20j0「あれっ、博士もいなくなったぞ。qcs0
  4389.         Ａ=32
  4390.     }
  4391.  
  4392. #1    !o1b0s0j2ジオット:b6s20j0「
  4393.     &if(オルゴール==1 and %haveitem(壊れたオルゴール)){
  4394.         !ん？そのオルゴールは何じゃ？ちょっと見せてみなさい。p
  4395.         &partyitemout 壊れたオルゴール
  4396.         !o1s0j2i(壊れたオルゴール)j0を渡した！p
  4397.         !o1b0s0j2ジオット:b6s20j0「ふむ、壊れているようじゃな。p;
  4398.         !じゃが、ここをこうして・・・。
  4399.         &pcm 12
  4400.         !p;こうすれば・・・。
  4401.         &pcm 16
  4402.         !p;ほれ、直ったぞ。p
  4403.         &partyitemin 綺麗なオルゴール
  4404.         !o1s0j2i(綺麗なオルゴール)j0を手に入れた！qcs0
  4405.         &&
  4406.     }
  4407.     &if(Ａ>=290){
  4408.         &if(%haveitem(モンスター図鑑)==1){
  4409.             !モンスター図鑑を読むのかね？;
  4410.             &if(%inkeyn==0){
  4411.                 !c
  4412.                 &goto 図鑑
  4413.             }
  4414.         }
  4415.         &if(%haveitem(古びた図鑑)==1){
  4416.             !ん？その本は何じゃ？p
  4417.             !o1s0j2i(古びた図鑑)j0を渡した！p
  4418.             !o1b0s0j2ジオット:b6s20j0「これは・・・。w古代文字で書かれとるな。
  4419.             !どうやらモンスター図鑑のようじゃな。p;ふむふむ。
  4420.             !出会ったモンスターが記録されるようじゃ。これは旅には役立つな。p;
  4421.             !見たくなったら言いなさい。わしが読んであげよう。pb5
  4422.             !o1s0j2i(モンスター図鑑)j0を手に入れた！qc
  4423.             &partyitemout 古びた図鑑
  4424.             &partyitemin モンスター図鑑
  4425.             &&
  4426.         }
  4427.         !無理をするでないぞ。qcs0b5
  4428.         &&
  4429.     }&else{
  4430.         &if(Ａ==10){
  4431.             !おお、すまんすまん。お金ならそこの宝箱に入っとるぞ。
  4432.             &if(%gold!=0){
  4433.                 !p;おや、もう持っとるのか。
  4434.             }
  4435.             !qcs0
  4436.             Ａ=12
  4437.             &&
  4438.         }
  4439.         !休んでいくかね？;
  4440.         &se 2
  4441.         %selectlist={泊まる,旅の記録,やめる}
  4442.         &switch(%select){
  4443.         &default:
  4444.             &break
  4445.         &case 0:
  4446.             &jsr 宿
  4447.             &link 100
  4448.         &case 1:
  4449.             !旅の記録を付けるんじゃな。p
  4450.             %partynamedef(0)=王立研究所
  4451.             &save 100,7,51,-%up
  4452.             !o1b0s0j2ジオット:b6s20j0「無理をするでないぞ。qcs0b5
  4453.             &&
  4454.         }
  4455.         &if(Ａ==12){
  4456.             !西に行けば町じゃ。パンを買ってきておくれ。
  4457.             &if(%gold==0){
  4458.                 !お金を持って行くのを忘れないようにな。
  4459.             }
  4460.             !p;
  4461.         }
  4462.         &if(Ａ==20){
  4463.             !ホロが心配じゃ。観測所に行ってきておくれ。p;
  4464.         }
  4465.         !無理をするでないぞ。qcs0
  4466.     }
  4467.     &manmove 1,-%down
  4468. #2    &if(Ａ==32){
  4469.         !o1b0s0j2|2:b5s20j0「おっ、留守番君だ。;ということは博士は出かけたのか。p;
  4470.         !どれ、メッセージは残ってるかな？pcs0
  4471.         Ａ=35
  4472.     }
  4473.     !o1b0s0j2留守番くん:b5s32j0「王立研究所でございます。
  4474.     &if(Ａ==35){
  4475.         !;ジオット様の伝言をお聞ききになりますか？
  4476.         &if(%inkeyn==0){
  4477.             !o1b0s0j2ジオット:b6s20j0「ジオットじゃ。;
  4478.             !王様からお呼びが掛かったのでな、ちょっと城まで行って来る。p;
  4479.             !ホロのことで緊急の用事があったら城に来るのじゃぞ。p;
  4480.             !それから、宝箱にパンが入っとるぞ。それじゃな。ps0
  4481.             Ａ=40
  4482.             &partymove -2
  4483.             !o1b0s0j2|2:b5s20j0「う～ん。一応博士に知らせたほうがいいよな？
  4484.             &if(%inkeyn==0){
  4485.                 !;よし、城に行こう！qcs0
  4486.             }&else{
  4487.                 !;そうか？オレは知らせるべきだと思うぞ。とにかく城に行くぞ。qcs0
  4488.             }
  4489.             &&
  4490.         }
  4491.     }
  4492.     !;ご宿泊でございますか？;
  4493.     &se 2
  4494.     %selectlist={泊まる,旅の記録,やめる}
  4495.     &switch(%select){
  4496.     &default:
  4497.         &break
  4498.     &case 0:
  4499.         &jsr 宿
  4500.         &link 99
  4501.     &case 1:
  4502.         !旅の記録でございますね。ps0
  4503.         %partynamedef(0)=王立研究所
  4504.         &save 99,10,55,-%up
  4505.         !o1b0s0j2留守番くん:b5s32j0「
  4506.     }
  4507.     !それでは、いってらっしゃいませ。qcs0
  4508. #3
  4509. #6    &if(Ａ<=30){
  4510.         &if(宝01==0){
  4511.             %mandef(%manno)={$E,1,$CB,%down,-1}    //宝箱（開）
  4512.             &se 31
  4513.             &on
  4514.             !o1s0j2５０Ｇj0を見つけた！p:
  4515.             &if((%gold+50)>25600){
  4516.                 &pcm 18
  4517.                 !b2j1これ以上お金を持てません！j0qcb5
  4518.                 %mandef(%manno)={$E,1,$CA,%down,-1}    //宝箱（閉）
  4519.                 &on
  4520.             }&else{
  4521.                 宝01=1
  4522.                 %gold=%gold+50
  4523.                 &if(%gold>25600){
  4524.                     %gold=25600
  4525.                 }
  4526.                 !j2５０Ｇj0を手に入れた！qc
  4527.             }
  4528.         }&else{
  4529.             &jsr 空
  4530.         }
  4531.     }&else{
  4532.         &if(宝01==0){
  4533.             %mandef(6)={$E,1,$CB,%down,-1}    //宝箱（開）
  4534.             &se 31
  4535.             &on
  4536.             !o1s0j2i(パン)j0を２つ見つけた！p:
  4537.             &if(%rasthaveitem>=2){
  4538.                 宝01=1
  4539.                 &partyitemin パン
  4540.                 &partyitemin パン
  4541.                 !j2i(パン)j0を２つ手に入れた！qc
  4542.             }&else{
  4543.                 &pcm 18
  4544.                 !o1b2s0j1これ以上持てません！j0qcb5
  4545.                 %mandef(6)={$E,1,$CA,%down,-1}    //宝箱（閉）
  4546.                 &on
  4547.             }
  4548.         }&else{
  4549.             &jsr 空
  4550.         }
  4551.     }
  4552. #9    !o1b0s0j2|2:b5s20j0「オ、オレのからだぁ～。qcs0
  4553. #10
  4554. #11
  4555. #12
  4556. #13
  4557. #99    &jsr 装備切り換え
  4558.     &bgm 12
  4559.     !o1b0s0j2留守番くん:b5s32j0「お出かけでございますか？;留守はお任せくださいませ。qcs0
  4560. #100    &jsr 装備切り換え
  4561.     &bgm 12
  4562.     !o1b0s0j2ジオット:b6s20j0「無理をするでないぞ。qcs0b5
  4563.  
  4564. #@1    &if(%direc<0){
  4565.         &se 26
  4566.         &wait 120
  4567.         &move @2,%down
  4568.     }
  4569. #@2    &if(%direc<0){
  4570.         &se 25
  4571.         &wait 120
  4572.         &move @1,%down
  4573.     }
  4574. #@4    &if(%direc<0){
  4575.         &se 29
  4576.         &goto2 研究所,@3,%down
  4577.     }
  4578.  
  4579.  
  4580. //-------------------------------------------------------------------
  4581. [図鑑]
  4582. //-------------------------------------------------------------------
  4583.     &mapsp SPP\ZUKAN.SPP
  4584.     &mappal PAL\ZUKAN.PAL
  4585.     &map MAP\ZUKAN.MAP
  4586.     %partypoint={@0,%down}
  4587.     &on
  4588.  
  4589.     !o1b0s0j2ジオット:b6s20j0「どのページを読むのじゃ？p
  4590.     &jmp 絵
  4591.     &label 選択
  4592.     &se 2
  4593.     %selectlist={次ページ,読む,前ページ,終わり}
  4594.     &switch(%select){
  4595.     &default:
  4596.         &jmp ＥＮＤ
  4597.     &case 0:
  4598.         ページ++
  4599.         &if(ページ==31){
  4600.             ページ=1
  4601.         }
  4602.         &break
  4603.     &case 1:
  4604.         &jmp 読む
  4605.     &case 2:
  4606.         ページ--
  4607.         &if(ページ==0){
  4608.             ページ=30
  4609.         }
  4610.         &break
  4611.     }
  4612.     &label 絵
  4613.     &jsr 発見済
  4614.     &switch(ページ２){
  4615.     &case 0:
  4616.         &jsr 図消
  4617.         &patternpal PAL\CG_A.PAL
  4618.         &monsprint 88,58,未発見
  4619.         &jmp 選択
  4620.     &case 1:
  4621.         &jsr 図消
  4622.         &patternpal PAL\CG_A.PAL
  4623.         &monsprint 84,62,ネホリン
  4624.         &jmp 選択
  4625.     &case 2:
  4626.         &jsr 図消
  4627.         &patternpal PAL\CG_A.PAL
  4628.         &monsprint 88,58,ハホリン
  4629.         &jmp 選択
  4630.     &case 3:
  4631.         &jsr 図消
  4632.         &patternpal PAL\CG_A.PAL
  4633.         &monsprint 76,66,ツツガムシ
  4634.         &jmp 選択
  4635.     &case 4:
  4636.         &jsr 図消
  4637.         &patternpal PAL\CG_A.PAL
  4638.         &monsprint 76,58,ポインティ
  4639.         &jmp 選択
  4640.     &case 5:
  4641.         &jsr 図消
  4642.         &patternpal PAL\CG_A.PAL
  4643.         &monsprint 84,58,ハチベー
  4644.         &jmp 選択
  4645.     &case 6:
  4646.         &jsr 図消
  4647.         &patternpal PAL\CG_A.PAL
  4648.         &monsprint 84,62,ゲンノショウコ
  4649.         &jmp 選択
  4650.     &case 7:
  4651.         &jsr 図消
  4652.         &patternpal PAL\CG_A.PAL
  4653.         &monsprint 60,46,カミミミズク
  4654.         &jmp 選択
  4655.     &case 8:
  4656.         &jsr 図消
  4657.         &patternpal PAL\CG_C.PAL
  4658.         &monsprint 80,58,草の王
  4659.         &jmp 選択
  4660.     &case 9:
  4661.         &jsr 図消
  4662.         &patternpal PAL\CG_C.PAL
  4663.         &monsprint 72,58,ヒクイ
  4664.         &jmp 選択
  4665.     &case 10:
  4666.         &jsr 図消
  4667.         &patternpal PAL\CG_C.PAL
  4668.         &monsprint 88,50,マジシャン
  4669.         &jmp 選択
  4670.     &case 11:
  4671.         &jsr 図消
  4672.         &patternpal PAL\CG_B.PAL
  4673.         &monsprint 84,54,タタミン
  4674.         &jmp 選択
  4675.     &case 12:
  4676.         &jsr 図消
  4677.         &patternpal PAL\CG_B.PAL
  4678.         &monsprint 76,54,カマキラ
  4679.         &jmp 選択
  4680.     &case 13:
  4681.         &jsr 図消
  4682.         &patternpal PAL\CG_B.PAL
  4683.         &monsprint 84,54,ゴブリン
  4684.         &jmp 選択
  4685.     &case 14:
  4686.         &jsr 図消
  4687.         &patternpal PAL\CG_B.PAL
  4688.         &monsprint 88,66,チビウィズ
  4689.         &jmp 選択
  4690.     &case 15:
  4691.         &jsr 図消
  4692.         &patternpal PAL\CG_B.PAL
  4693.         &monsprint 92,74,カビキラ
  4694.         &jmp 選択
  4695.     &case 16:
  4696.         &jsr 図消
  4697.         &patternpal PAL\CG_B.PAL
  4698.         &monsprint 88,54,オタフク
  4699.         &jmp 選択
  4700.     &case 17:
  4701.         &jsr 図消
  4702.         &patternpal PAL\CG_B.PAL
  4703.         &monsprint 76,50,吸血コウモリ
  4704.         &jmp 選択
  4705.     &case 18:
  4706.         &jsr 図消
  4707.         &patternpal PAL\CG_B.PAL
  4708.         &monsprint 84,70,アナノモグラ
  4709.         &jmp 選択
  4710.     &case 19:
  4711.         &jsr 図消
  4712.         &patternpal PAL\CG_B.PAL
  4713.         &monsprint 76,42,ゾンビ
  4714.         &jmp 選択
  4715.     &case 20:
  4716.         &jsr 図消
  4717.         &patternpal PAL\CG_B.PAL
  4718.         &monsprint 84,26,人喰いグモ
  4719.         &jmp 選択
  4720.     &case 21:
  4721.         &jsr 図消
  4722.         &patternpal PAL\CG_C.PAL
  4723.         &monsprint 64,34,サンドワーム
  4724.         &jmp 選択
  4725.     &case 22:
  4726.         &jsr 図消
  4727.         &patternpal PAL\CG_C.PAL
  4728.         &monsprint 72,50,カラカラ
  4729.         &jmp 選択
  4730.     &case 23:
  4731.         &jsr 図消
  4732.         &patternpal PAL\CG_C.PAL
  4733.         &monsprint 68,38,スコルピウス
  4734.         &jmp 選択
  4735.     &case 24:
  4736.         &jsr 図消
  4737.         &patternpal PAL\CG_C.PAL
  4738.         &monsprint 64,62,スフィンクス
  4739.         &jmp 選択
  4740.     &case 25:
  4741.         &jsr 図消
  4742.         &patternpal PAL\CG_C.PAL
  4743.         &monsprint 84,58,マーメイド
  4744.         &jmp 選択
  4745.     &case 26:
  4746.         &jsr 図消
  4747.         &patternpal PAL\CG_C.PAL
  4748.         &monsprint 80,58,シニガミ
  4749.         &jmp 選択
  4750.     &case 27:
  4751.         &jsr 図消
  4752.         &patternpal PAL\CG_C.PAL
  4753.         &monsprint 72,34,ストンゴーレム
  4754.         &jmp 選択
  4755.     &case 28:
  4756.         &jsr 図消
  4757.         &patternpal PAL\CG_C.PAL
  4758.         &monsprint 80,70,呪いのランプ
  4759.         &jmp 選択
  4760.     &case 29:
  4761.         &jsr 図消
  4762.         &patternpal PAL\CG_C.PAL
  4763.         &monsprint 88,74,スライム
  4764.         &jmp 選択
  4765.     &case 30:
  4766.         &jsr 図消
  4767.         &patternpal PAL\CG_C.PAL
  4768.         &monsprint 76,58,コデビル
  4769.         &jmp 選択
  4770.     }
  4771.     &label 読む
  4772.     &jsr 発見済
  4773.     &switch(ページ２){
  4774.     &case 0:
  4775.         !o1b0s0j2ジオット:b6s20j0「このページにはまだ何も書かれていないぞ。p
  4776.         &jmp 選択
  4777.     &case 1:
  4778.         !o1j2Ｎｏ．０１：j0ネホリン:
  4779.         !j2ＨＰ：j0約００８　j2ＭＰ：j0約０１２p:
  4780.         !j2主な生息地：j0平地、森:
  4781.         !j2使用魔法／特技：j0質問攻めp:
  4782.         !j2特徴：j0;出会った人を質問攻めにする、根っこモンスター。いつもハホリンと一緒。p
  4783.         &jmp 選択
  4784.     &case 2:
  4785.         !o1j2Ｎｏ．０２：j0ハホリン:
  4786.         !j2ＨＰ：j0約００９　j2ＭＰ：j0約０２０p:
  4787.         !j2主な生息地：j0平地、森:
  4788.         !j2使用魔法／特技：j0光合成p:
  4789.         !j2特徴：j0;とにかく何でも聞きたがる、葉っぱモンスター。いつもネホリンと一緒。p
  4790.         &jmp 選択
  4791.     &case 3:
  4792.         !o1j2Ｎｏ．０３：j0ツツガムシ:
  4793.         !j2ＨＰ：j0約０１４　j2ＭＰ：j0約０００p:
  4794.         !j2主な生息地：j0平地、森:
  4795.         !j2使用魔法／特技：j0なしp:
  4796.         !j2特徴：j0;昔は、全ての病の源だと思われていた虫モンスター。寄生虫ではない。p
  4797.         &jmp 選択
  4798.     &case 4:
  4799.         !o1j2Ｎｏ．０４：j0ポインティ:
  4800.         !j2ＨＰ：j0約０１８　j2ＭＰ：j0約０１８p:
  4801.         !j2主な生息地：j0森:
  4802.         !j2使用魔法／特技：j0針飛ばしp:
  4803.         !j2特徴：j0;針で攻撃、針で防御する、はりもぐらモンスター。転がると、素早く移動できる。p
  4804.         &jmp 選択
  4805.     &case 5:
  4806.         !o1j2Ｎｏ．０５：j0ハチベー:
  4807.         !j2ＨＰ：j0約０１２　j2ＭＰ：j0約０１２p:
  4808.         !j2主な生息地：j0森:
  4809.         !j2使用魔法／特技：j0アッカンベp:
  4810.         !j2特徴：j0;うっかりしている。うっかり人前に現れ、うっかり闘ってしまう。根はいい蜂。p
  4811.         &jmp 選択
  4812.     &case 6:
  4813.         !o1j2Ｎｏ．０６：j0ゲンノショウコ:
  4814.         !j2ＨＰ：j0約０１５　j2ＭＰ：j0約０１５p:
  4815.         !j2主な生息地：j0平地、森:
  4816.         !j2使用魔法／特技：j0種飛ばしp:
  4817.         !j2特徴：j0;ピンチに陥ると、種を飛ばしながら逃げ出す。茎や葉は下痢止めの薬になる。p
  4818.         &jmp 選択
  4819.     &case 7:
  4820.         !o1j2Ｎｏ．０７：j0カミミミズク:
  4821.         !j2ＨＰ：j0約０２３　j2ＭＰ：j0約０３０p:
  4822.         !j2主な生息地：j0森:
  4823.         !j2使用魔法／特技：j0大はばたきp:
  4824.         !j2特徴：j0;はばたいて大風をおこす。身体が紙でできているので、火にも水にも弱い。p
  4825.         &jmp 選択
  4826.     &case 8:
  4827.         !o1j2Ｎｏ．０８：j0草の王:
  4828.         !j2ＨＰ：j0約０２４　j2ＭＰ：j0約０２５p:
  4829.         !j2主な生息地：j0高地:
  4830.         !j2使用魔法／特技：j0猛毒の葉p:
  4831.         !j2特徴：j0;草の王様らしく王冠をかぶっている。花や葉には毒があるので、食用にはならない。p
  4832.         &jmp 選択
  4833.     &case 9:
  4834.         !o1j2Ｎｏ．０９：j0ヒクイ:
  4835.         !j2ＨＰ：j0約０２９　j2ＭＰ：j0約０４０p:
  4836.         !j2主な生息地：j0高地:
  4837.         !j2使用魔法／特技：j0炎の舞、火の玉p:
  4838.         !j2特徴：j0;火を食べて生きているという火の鳥。ヒクイの羽は長寿の薬になるという。p
  4839.         &jmp 選択
  4840.     &case 10:
  4841.         !o1j2Ｎｏ．１０：j0マジシャン:
  4842.         !j2ＨＰ：j0約０３３　j2ＭＰ：j0約０９０p:
  4843.         !j2主な生息地：j0高地:
  4844.         !j2使用魔法／特技：j0黒霧、風刃、雷光、氷矢、火柱p:
  4845.         !j2特徴：j0;高地に住む、高等魔法使い。新しい魔法をあみだすと、使わずにはいられない。p
  4846.         &jmp 選択
  4847.     &case 11:
  4848.         !o1j2Ｎｏ．１１：j0タタミン:
  4849.         !j2ＨＰ：j0約０２０　j2ＭＰ：j0約０８０p:
  4850.         !j2主な生息地：j0平地:
  4851.         !j2使用魔法／特技：j0たたむ、ポー、;ファp:
  4852.         !j2特徴：j0;旅人が、地図や魔法の巻物を開く音を聞くと出現する。畳みたくてたまらないらしい。p
  4853.         &jmp 選択
  4854.     &case 12:
  4855.         !o1j2Ｎｏ．１２：j0カマキラ:
  4856.         !j2ＨＰ：j0約０２２　j2ＭＰ：j0約０００p:
  4857.         !j2主な生息地：j0平地:
  4858.         !j2使用魔法／特技：j0なしp:
  4859.         !j2特徴：j0;その気はないのに、近寄る者は切り裂いてしまう。手の鎌は、切れ味の良い武器にもなる。p
  4860.         &jmp 選択
  4861.     &case 13:
  4862.         !o1j2Ｎｏ．１３：j0ゴブリン:
  4863.         !j2ＨＰ：j0約０２８　j2ＭＰ：j0約０００p:
  4864.         !j2主な生息地：j0平地:
  4865.         !j2使用魔法／特技：j0なしp:
  4866.         !j2特徴：j0;何故か、前掛けには「ゴ」の文字が。ゴブリンの「ゴ」なのだろうか？真相は不明。p
  4867.         &jmp 選択
  4868.     &case 14:
  4869.         !o1j2Ｎｏ．１４：j0チビウィズ:
  4870.         !j2ＨＰ：j0約０１８　j2ＭＰ：j0約０２５p:
  4871.         !j2主な生息地：j0平地:
  4872.         !j2使用魔法／特技：j0ポー、ファル、ウォル、ピカルp:
  4873.         !j2特徴：j0;低級魔法使い。永唱するほとんどの魔法はハッタリだが、たまに大魔法を成功させる。p
  4874.         &jmp 選択
  4875.     &case 15:
  4876.         !o1j2Ｎｏ．１５：j0カビキラ:
  4877.         !j2ＨＰ：j0約０１６　j2ＭＰ：j0約０００p:
  4878.         !j2主な生息地：j0洞窟:
  4879.         !j2使用魔法／特技：j0なしp:
  4880.         !j2特徴：j0;どんな抗生物質も効かないミュータント菌類。暗くジメジメした洞窟等の場所を好む。p
  4881.         &jmp 選択
  4882.     &case 16:
  4883.         !o1j2Ｎｏ．１６：j0オタフク:
  4884.         !j2ＨＰ：j0約０２０　j2ＭＰ：j0約０３０p:
  4885.         !j2主な生息地：j0洞窟:
  4886.         !j2使用魔法／特技：j0氷の粒p:
  4887.         !j2特徴：j0;常におたふく風邪をひいているので、運が悪いと病気を貰ってしまうかも知れない。p
  4888.         &jmp 選択
  4889.     &case 17:
  4890.         !o1j2Ｎｏ．１７：j0吸血コウモリ:
  4891.         !j2ＨＰ：j0約０１５　j2ＭＰ：j0約０００p:
  4892.         !j2主な生息地：j0洞窟:
  4893.         !j2使用魔法／特技：j0なしp:
  4894.         !j2特徴：j0;弱い癖に洞窟の侵入者なら、誰にでも襲いかかってくる。特に人間の血が好きらしい。p
  4895.         &jmp 選択
  4896.     &case 18:
  4897.         !o1j2Ｎｏ．１８：j0アナノモグラ:
  4898.         !j2ＨＰ：j0約０１８　j2ＭＰ：j0約０４０p:
  4899.         !j2主な生息地：j0洞窟:
  4900.         !j2使用魔法／特技：j0穴掘りp:
  4901.         !j2特徴：j0;普段は土の中を掘り進んでいるが、たまに顔を出す。洞窟は彼らが作り上げたのかも知れない。p
  4902.         &jmp 選択
  4903.     &case 19:
  4904.         !o1j2Ｎｏ．１９：j0ゾンビ:
  4905.         !j2ＨＰ：j0約０５０　j2ＭＰ：j0約０００p:
  4906.         !j2主な生息地：j0洞窟:
  4907.         !j2使用魔法／特技：j0なしp:
  4908.         !j2特徴：j0;ずっと片方の長靴を探し続けている。両足の長靴が揃っているゾンビは未だ見たことがない。p
  4909.         &jmp 選択
  4910.     &case 20:
  4911.         !o1j2Ｎｏ．２０：j0人喰いグモ:
  4912.         !j2ＨＰ：j0約０４０　j2ＭＰ：j0約０２５p:
  4913.         !j2主な生息地：j0洞窟:
  4914.         !j2使用魔法／特技：j0クモの糸p:
  4915.         !j2特徴：j0;巣を張り獲物が掛かるのを待つが、待ちきれず、巣からスルスルと降りてくることも多い。p
  4916.         &jmp 選択
  4917.     &case 21:
  4918.         !o1j2Ｎｏ．２１：j0サンドワーム:
  4919.         !j2ＨＰ：j0約０８０　j2ＭＰ：j0約０００p:
  4920.         !j2主な生息地：j0砂漠:
  4921.         !j2使用魔法／特技：j0なしp:
  4922.         !j2特徴：j0;砂の中に潜み、近くを旅人が通るとその巨大な口で襲いかかる。巨体に似合わず、素早い。p
  4923.         &jmp 選択
  4924.     &case 22:
  4925.         !o1j2Ｎｏ．２２：j0カラカラ:
  4926.         !j2ＨＰ：j0約０４８　j2ＭＰ：j0約０３８p:
  4927.         !j2主な生息地：j0砂漠:
  4928.         !j2使用魔法／特技：j0骨抜き、骨投げp:
  4929.         !j2特徴：j0;カラカラと骨を鳴らしながら現れる。ピンチに陥ると自らの肋骨を投げて攻撃してくる。p
  4930.         &jmp 選択
  4931.     &case 23:
  4932.         !o1j2Ｎｏ．２３：j0スコルピウス:
  4933.         !j2ＨＰ：j0約０５２　j2ＭＰ：j0約０３０p:
  4934.         !j2主な生息地：j0砂漠:
  4935.         !j2使用魔法／特技：j0毒の尻尾p:
  4936.         !j2特徴：j0;何か悩みがあるらしく、いつも困った顔をしている。両腕のはさみと尻尾の毒針が武器。p
  4937.         &jmp 選択
  4938.     &case 24:
  4939.         !o1j2Ｎｏ．２４：j0スフィンクス:
  4940.         !j2ＨＰ：j0約０６５　j2ＭＰ：j0約０３０p:
  4941.         !j2主な生息地：j0砂漠:
  4942.         !j2使用魔法／特技：j0炎p:
  4943.         !j2特徴：j0;旅人にクイズを出題するのが趣味。しかし、砂漠の暑さにばてて、それどころではない。p
  4944.         &jmp 選択
  4945.     &case 25:
  4946.         !o1j2Ｎｏ．２５：j0マーメイド:
  4947.         !j2ＨＰ：j0約０４２　j2ＭＰ：j0約０２７p:
  4948.         !j2主な生息地：j0遺跡周辺の水辺:
  4949.         !j2使用魔法／特技：j0吹雪p:
  4950.         !j2特徴：j0;フナとコイ、どちらが自分の先祖か、いつも悩んでいる。人魚の肉は不死の薬だといわれる。p
  4951.         &jmp 選択
  4952.     &case 26:
  4953.         !o1j2Ｎｏ．２６：j0シニガミ:
  4954.         !j2ＨＰ：j0約０６６　j2ＭＰ：j0約０５０p:
  4955.         !j2主な生息地：j0遺跡:
  4956.         !j2使用魔法／特技：j0怒りの大鎌p:
  4957.         !j2特徴：j0;遺跡に来る人々の魂をコレクションしている。日の光に弱いらしく、外出時はサングラスを愛用。p
  4958.         &jmp 選択
  4959.     &case 27:
  4960.         !o1j2Ｎｏ．２７：j0ストンゴーレム:
  4961.         !j2ＨＰ：j0約１５０　j2ＭＰ：j0約１００p:
  4962.         !j2主な生息地：j0遺跡:
  4963.         !j2使用魔法／特技：j0岩石落としp:
  4964.         !j2特徴：j0;主の命令を忠実に守る、石製ゴーレム。守っている物に近づく者には、岩石を投げつける。p
  4965.         &jmp 選択
  4966.     &case 28:
  4967.         !o1j2Ｎｏ．２８：j0呪いのランプ:
  4968.         !j2ＨＰ：j0約０６０　j2ＭＰ：j0約０３０p:
  4969.         !j2主な生息地：j0遺跡、宝箱:
  4970.         !j2使用魔法／特技：j0呪いの煙p:
  4971.         !j2特徴：j0;誤って、ランプをこすったりすると、呪われてしまう。宝箱の中に潜んでいることが多い。p
  4972.         &jmp 選択
  4973.     &case 29:
  4974.         !o1j2Ｎｏ．２９：j0スライム:
  4975.         !j2ＨＰ：j0約０５５　j2ＭＰ：j0約０００p:
  4976.         !j2主な生息地：j0遺跡:
  4977.         !j2使用魔法／特技：j0なしp:
  4978.         !j2特徴：j0;呪文を吸い込んでしまう為、魔法は一切効かない。良い剣でないと切ることすら出来ないかも。p
  4979.         &jmp 選択
  4980.     &case 30:
  4981.         !o1j2Ｎｏ．３０：j0コデビル:
  4982.         !j2ＨＰ：j0約０７０　j2ＭＰ：j0約０６０p:
  4983.         !j2主な生息地：j0遺跡:
  4984.         !j2使用魔法／特技：j0ポラ、ファ、;ウォー、炎、氷の粒p:
  4985.         !j2特徴：j0;ごくたまに人里にも現れる、いたずら好きな子悪魔。子供だと思って、あまく見ないほうが良いだろう。p
  4986.         &jmp 選択
  4987.     }
  4988.     &label ＥＮＤ
  4989.     !o1b0s0j2ジオット:b6s20j0「もういいんじゃな。
  4990.     &if(図鑑完成==1){
  4991.         !p;裏表紙には、『再び星雲の鍵を示し時、深淵の扉開かれん』とあるぞ。
  4992.     }
  4993.     &if(図鑑完成==0 and モ01*モ02*モ03*モ04*モ05*モ06*モ07*モ08*モ09*モ10*モ11*モ12*モ13*モ14*モ15*モ16*モ17*モ18*モ19*モ20*モ21*モ22*モ23*モ24*モ25*モ26*モ27*モ28*モ29*モ30==1){
  4994.         図鑑完成=1
  4995.         &freash 22421
  4996.         !o1b0s0j2ジオット:b6s20j0「な、なんじゃ？p;
  4997.         !むむ。裏表紙に、前にはなかった光る文字が浮かんどるぞ。なになに・・・。p;
  4998.         !『再び星雲の鍵を示し時、深淵の扉開かれん』と読めるな。
  4999.     }
  5000.     !qcs0b5
  5001.     &jsr 図消
  5002.     &patternpal PAL\CG_E.PAL
  5003.     &goto2 研究所＿中,@10,-%up
  5004.  
  5005.  
  5006. //-------------------------------------------------------------------
  5007. [観測所]
  5008. //-------------------------------------------------------------------
  5009.     &mapsp SPP\KENKYU.SPP
  5010.     &mappal PAL\KENKYU.PAL
  5011.     &map MAP\KANSOK.MAP
  5012.     &jsr 大
  5013.     %partypoint={@1,-%up}
  5014.     &if(%nowbgm!=13){
  5015.         &bgm 13
  5016.     }
  5017.  
  5018.     %mandef(1)={$8,1,$C5,%down,-1}    //立て札
  5019.     %mandef(9)={$F,1,$C1,%down,-1}    //ドア（開）
  5020.     %mandef(10)={$F,0,$00,%down,0}    //水晶
  5021.     %manpoint(9)={100,100}
  5022.     &if(水晶==0){
  5023.         %manpoint(10)={100,100}
  5024.     }
  5025.     &jsr ワープ３
  5026.     &on
  5027.  
  5028.     &jsr ワープ４
  5029.  
  5030.     &if(Ａ==28){
  5031.         &pcm 20
  5032.         &wait 80
  5033.         &pcm 20
  5034.         !o1b0s0j2|2:b5s20j0「お！p
  5035.         &pcm 20
  5036.         !花火だ。;城の方から聞こえたな。qcs0
  5037.         Ａ=30
  5038.     }
  5039.  
  5040. #1    !o1s0『王立天体観測所』qc
  5041. #10    &if(%haveitem(オールトの指輪)==1){
  5042.         &jsr 水晶飛
  5043.     }
  5044.  
  5045. #@0    &if(%direc<0){
  5046.         &se 13
  5047.         &goto2 フィールド,@9,%down
  5048.     }
  5049. #@2    &if(%direc<0){
  5050.         %manpoint(9)={38,20}
  5051.         &on
  5052.         &pcm 1
  5053.         &goto2 観測所＿中,@3,%up
  5054.     }
  5055.  
  5056.  
  5057. //-------------------------------------------------------------------
  5058. [観測所＿中]
  5059. //-------------------------------------------------------------------
  5060.     &mapsp SPP\KANSOK_I.SPP
  5061.     &mappal PAL\KENKYU_I.PAL
  5062.     &partyspeed 1
  5063.     &if(Ａ>290 and %nowbgm!=33){
  5064.         &bgm 33
  5065.     }
  5066.  
  5067.     I=0
  5068.     &if(Ａ>=20 and Ａ<30){
  5069.         %mandef(2)={$B,0,$AE,%down,-1}    //？
  5070.         %mandef(3)={$C,6,$C0,%down,2}    //白猫
  5071.         %manpoint(2)={100,100}
  5072.     }
  5073.     &if(Ａ<20){
  5074.         %mandef(2)={$C,0,$60,%down,3}    //クロ
  5075.     }
  5076.     &if(Ａ<20){
  5077.         %mandef(3)={$E,6,$40,%down,2}    //ホロ
  5078.     }
  5079.     %mandef(4)={$5,1,$C7,%down,-1}    //家具（下）
  5080.     %mandef(5)={$5,1,$C6,%down,-1}    //家具（上）
  5081.     %mandef(6)={$E,7,$EC,%down,0}    //暖炉
  5082.     %mandef(8)={$F,0,$AD,%down,-1}    //ジュークボックス
  5083.     &if(Ａ>=295 and 船==0){
  5084.         %manpoint(4)={1,45}
  5085.         %manpoint(5)={1,41}
  5086.     }&else{
  5087.         %manpoint(4)={1,47}
  5088.         %manpoint(5)={1,43}
  5089.     }
  5090.     &if(Ａ>=30 and Ａ<290){
  5091.         %manpoint(6)={100,100}
  5092.     }
  5093.     &if(Ａ==20){
  5094.         &partyset 2,1
  5095.     }
  5096.     &if(Ａ==290){
  5097.         %mandef(3)={$E,6,$40,%down,0}    //ホロ
  5098.         %manpoint(3)={13,44}
  5099.     }
  5100.     &on
  5101.  
  5102.     &if(Ａ==20){
  5103.         &partymove 8,8,8,8,8,8,8,8,6,6,6,6
  5104.         %manpoint(2)={%px+1,%py-2-34}
  5105.         &on
  5106.         &pcm 22
  5107.         &partymove -8,-4,-2
  5108.         %manpoint(2)={100,100}
  5109.         &on
  5110.         !o1b0s0j2|2:b5s20j0「あれ、いないな。２階を見てみるか。qcs0
  5111.         Ａ=22
  5112.     }
  5113.  
  5114. #2    !o1b0s0j2|2:b5s20j0「よう、なんか用か？;ホロがこき使うんで、今忙しいんだ。qcs0
  5115. #3    &if(Ａ==290){
  5116.         !o1b0s0j2ホロ:b5s20j0「おお、来たな。調子はどうだ、クロ？p
  5117.         !o1b0s0j2|2:b5s20j0「いいはずないだろ。p
  5118.         !o1b0s0j2ホロ:b5s20j0「まあ、そう言うな。これで、お前もあの白ネコを追いかけられるんだ。p;
  5119.         タマとジオットに感謝しろ。p
  5120.         !o1b0s0j2|2:b5s20j0「追う方法があるのか？p
  5121.         !o1b0s0j2ホロ:b5s20j0「おっと、そうだった。ちょっと待ってろ。pc
  5122.         &manmove 3,6,6,8,8,8,8,6,-8
  5123.         %mandef(3)={$E,6,$40,%up,0}    //ホロ
  5124.         &on
  5125.         &pcm 12
  5126.         &wait 30
  5127.         !o1b0s0j2ホロ:b5s20j0「まずは、こうして。
  5128.         &bgm 33
  5129.         &wait 30
  5130.         !p
  5131.         !o1b0s0j2|2:b5s20j0「何やってんだ？p
  5132.         &manmove 3,-2
  5133.         !o1b0s0j2ホロ:b5s20j0「まあ、待ってろ。pcs0
  5134.         &manmove 3,4,2,2,2,2,2,2,2,2,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,-8
  5135.         &pcm 5
  5136.         &wait 10
  5137.         %manpoint(4)={1,46-34}
  5138.         %manpoint(5)={1,42-34}
  5139.         &on
  5140.         &wait 7
  5141.         %manpoint(4)={1,45-34}
  5142.         %manpoint(5)={1,41-34}
  5143.         &on
  5144.         &manmove 3,8,8
  5145.         &se 18
  5146.         %manpoint(3)={100,100}
  5147.         &on
  5148.         &wait 100
  5149.         Ａ=295
  5150.         !o1b0s0j2ホロ:b5s20j0「おーい！こっちだ。qcs0
  5151.         &&
  5152.     }
  5153.     &if(Ａ>=20 and Ａ<30){
  5154.         &pcm 6
  5155.         !o1s0「にゃ～。p
  5156.         &if(I==0){
  5157.             !o1b0s0j2|2:b5s20j0「どうして、猫なんかいるんだ？
  5158.             !しかも、この国じゃ見たこともない白い猫だぞ。qcs0
  5159.             I++
  5160.         }&else{
  5161.             !o1b0s0j2|2:b5s20j0「ま、まさか、こいつがホロなんてことはないよな。qcs0
  5162.         }
  5163.     }&else{
  5164.         !o1b0s0j2ホロ:b5s20j0「なんか用か？クロなら２階にいるぞ。qcs0
  5165.     }
  5166. #4
  5167. #5
  5168. #6
  5169. #8    &if(Ａ>=295){
  5170.         !o1s0この曲に固定されているようだ。qc
  5171.     }&else{
  5172.         !o1s0『１曲１０Ｇ』と書いてある。:お金を入れてみる？g
  5173.         &if(%inkeyn==0){
  5174.             &if(%gold>=10){
  5175.                 &pcm 12
  5176.                 !c
  5177.                 &wait 10
  5178.                 %gold=%gold-10
  5179.                 &label
  5180.                 I=%rnd(34)
  5181.                 &if(I==%nowbgm){
  5182.                     &jmp @b
  5183.                 }
  5184.                 &switch(I){
  5185.                 &default:
  5186.                     &jmp @b
  5187.                 &case 7:
  5188.                     &bgm 7
  5189.                     &break
  5190.                 &case 11:
  5191.                     &bgm 11
  5192.                     &break
  5193.                 &case 14:
  5194.                     &bgm 14
  5195.                     &break
  5196.                 &case 16:
  5197.                     &bgm 16
  5198.                     &break
  5199.                 &case 19:
  5200.                     &bgm 19
  5201.                     &break
  5202.                 &case 20:
  5203.                     &bgm 20
  5204.                     &break
  5205.                 &case 21:
  5206.                     &bgm 21
  5207.                     &break
  5208.                 &case 23:
  5209.                     &bgm 23
  5210.                     &break
  5211.                 &case 24:
  5212.                     &bgm 24
  5213.                     &break
  5214.                 &case 25:
  5215.                     &bgm 25
  5216.                     &break
  5217.                 &case 26:
  5218.                     &bgm 26
  5219.                     &break
  5220.                 &case 27:
  5221.                     &bgm 27
  5222.                     &break
  5223.                 &case 28:
  5224.                     &bgm 28
  5225.                     &break
  5226.                 &case 29:
  5227.                     &bgm 29
  5228.                     &break
  5229.                 &case 31:
  5230.                     &bgm 31
  5231.                     &break
  5232.                 &case 33:
  5233.                     &bgm 33
  5234.                     &break
  5235.                 }
  5236.             }&else{
  5237.                 &pcm 18
  5238.                 !o1s0b2j1お金が足りません！j0qcb5
  5239.             }
  5240.         }
  5241.     }
  5242.  
  5243. #@3    &if(%direc<0){
  5244.         &if(Ａ==22){
  5245.             !o1b0s0j2|2:b5s20j0「おっと、
  5246.             &partymove -8
  5247.             !pまだ２階を見てないぞ！qcs0
  5248.             &partymove 8,8,8,8,8,8,-2
  5249.             &&
  5250.         }
  5251.         &if(Ａ==24){
  5252.             !o1b0s0j2|2:b5s20j0「おっと、
  5253.             &partymove -8
  5254.             !暖炉がつけっぱなしだ。pc
  5255.             &partymove 8,8,8,8,8,6,6,6,6,6,6,6,6,6,6,6,6,6,8,8,8,8,8,8,8,8
  5256.             !o1b0s0j2|2:b5s20j0「消しておこう。pc
  5257.             %manpoint(6)={100,100}
  5258.             &on
  5259.             &partymove -2
  5260.             !o1b0s0j2|2:b5s20j0「暖炉も消さないで・・・。w;ってことは、ホロに何かあったかも知れないな？
  5261.             &if(%inkeyn==0){
  5262.                 !;そうだな。
  5263.             }&else{
  5264.                 !;そうか？だったらいいけど。p;とりあえず
  5265.             }
  5266.             !博士に伝えておくか。pcs0
  5267.             Ａ=28
  5268.             宝01=0
  5269.             &partymove 2,2,2,2,2,2,2,4,4,4,4,4,4,4,4,4,4,4,4,4,2,2,2,2,2,2
  5270.         }
  5271.         &se 13
  5272.         &goto2 観測所,@2,%down
  5273.     }
  5274. #@4    &if(%direc<0){
  5275.         &partymove -8
  5276.         &contrast 0
  5277.         &se 17
  5278.         &wait 150
  5279.         &mappal PAL\KENKYU_S.PAL
  5280.         &if(Ａ>=295){
  5281.             &bgm 13
  5282.         }
  5283.         &move @5,%up
  5284.     }
  5285. #@5    &if(%direc<0){
  5286.         &partymove -8
  5287.         &if(Ａ==22){
  5288.             &partymove -2
  5289.             !o1b0s0j2|2:b5s20j0「２階にもいないか。ホロの奴、どこ行っちまったんだ。qcs0
  5290.             &partymove -8
  5291.             Ａ=24
  5292.         }
  5293.         &contrast 0
  5294.         &se 18
  5295.         &wait 120
  5296.         &mappal PAL\KENKYU_I.PAL
  5297.         &if(Ａ>=295){
  5298.             %manpoint(4)={1,45}
  5299.             %manpoint(5)={1,41}
  5300.             &on
  5301.             &bgm 33
  5302.         }
  5303.         &move @4,%up
  5304.     }
  5305. #@6    &if(%direc==4){
  5306.         !o1s0望遠鏡を覗いてみる？
  5307.         &if(%inkeyn==0){
  5308.             !:『１回１ペソ』と書いてある。:i(１ペソ銀貨)を入れてみる？
  5309.             &if(%inkeyn==0){
  5310.                 &if(%haveitem(１ペソ銀貨)==1){
  5311.                     &pcm 12
  5312.                     !o1s0j2i(１ペソ銀貨)j0を入れました。p
  5313.                     &partyitemout １ペソ銀貨
  5314.                     &monsprint 0,0,望遠鏡
  5315.                     &blackcircle 1
  5316.                     !o1s0何かが見える。あれはなんだろう？p
  5317.                     &if(Ａ<290){
  5318.                         !o1b0s0j2|2:b5s20j0「ホロがいなくなる前に観ていたのはこれだったのか。qs0
  5319.                     }&else{
  5320.                         !o1b0s0j2|2:b5s20j0「白ネコはあそこに行ったんだな。qs0
  5321.                     }
  5322.                     &blackcircle 0
  5323.                 }&else{
  5324.                     &pcm 18
  5325.                     !o1s0b2j1i(１ペソ銀貨)を持っていません！j0qcb5
  5326.                 }
  5327.             }
  5328.         }
  5329.     }
  5330. #@7    &if(%direc<0){
  5331.         &se 18
  5332.         &jsr 順番
  5333.         &goto2 観測所＿地下,@12,%down
  5334.     }
  5335.  
  5336.  
  5337. //-------------------------------------------------------------------
  5338. [観測所＿地下]
  5339. //-------------------------------------------------------------------
  5340.     &mapsp SPP\KANSOK_B.SPP
  5341.     &mappal PAL\KANSOK_B.PAL
  5342.     &map MAP\KANSOK.MAP
  5343.     &partyset A,B,C,D
  5344.     &partyspeed 2
  5345.     &if(%nowbgm!=33){
  5346.         &bgm 33
  5347.     }
  5348.  
  5349.     %mandef(7)={$E,6,$40,%right,0}    //ホロ
  5350.     &if(I==777){
  5351.         %mandef(7)={$E,6,$40,%down,0}    //ホロ
  5352.         %manpoint(7)={17,75}
  5353.     }
  5354.     &on
  5355.  
  5356.     &if(I==777){
  5357.         &partymove 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
  5358.         %mandef(7)={$E,6,$40,%right,1}    //ホロ
  5359.         &on
  5360.         &manmove 7,8,8,8,8,8,6,6,6,6
  5361.         %mandef(7)={$E,6,$40,%right,0}    //ホロ
  5362.         &on
  5363.         I=0
  5364.         !o1b0s0j2ホロ:b5s20j0「また遺跡に行く時は船を使わせてやるぞ。qcs0
  5365.     }
  5366.     &if(Ａ==295){
  5367.         !o1b0s0j2|2:b5s20j0「地下にこんな場所があったのか。qcs0
  5368.         Ａ=298
  5369.     }
  5370.  
  5371. #7    &if(Ａ==298){
  5372.         !o1b0s0j2ホロ:b5s20j0「どうだ、驚いたか。オレとジオットが遺跡調査に使ってる船だ。p
  5373.         !o1b0s0j2|6:b5s20j0「フネだ！p
  5374.         !o1b0s0j2|2:b5s20j0「その船がどうしたんだ？p
  5375.         !o1b0s0j2ホロ:b5s20j0「空に浮かぶ遺跡は、海の遺跡の真上にある。
  5376.         !オレの予想では、遺跡の中に上への移動手段がある・・・w筈だ。p;
  5377.         !オレとジオットが調べた時に、入れなかった部屋がある。そこがあやしいな。p;
  5378.         !海側から遺跡に入れば、そこまでたどりつける。p;
  5379.         !どうだ？行ってみるか？
  5380.         Ａ=300
  5381.     }&else{
  5382.         !o1b0s0j2ホロ:b5s20j0「なんだ？遺跡に行くのか？
  5383.     }
  5384.     &if(%inkeyn==0){
  5385.         !;よし、乗り込め！pcs0
  5386.         %mandef(7)={$E,6,$40,%right,1}    //ホロ
  5387.         &on
  5388.         &manmove 7,4,4,4,4,2,2,2,2,2
  5389.         %mandef(7)={$E,6,$40,%right,0}    //ホロ
  5390.         &on
  5391.         &partymove 4,4,4,4,4,4,4,8,8,6,2,2,8,8,2,2
  5392.         !o1b0s0j2ホロ:b5s20j0「出発！！pcs0
  5393.         &goto 船行き
  5394.     }&else{
  5395.         !;なんだ行かねえのか。qcs0
  5396.     }
  5397.  
  5398. #@12    &if(%direc<0){
  5399.         &se 17
  5400.         &goto2 観測所＿中,@7,%down
  5401.     }
  5402.  
  5403.  
  5404. //-------------------------------------------------------------------
  5405. [船行き]
  5406. //-------------------------------------------------------------------
  5407.     &mapsp SPP\FIELD.SPP
  5408.     &mappal PAL\FIELD.PAL
  5409.     &map MAP\FIELD_.MAP
  5410.     &jsr ４人
  5411.     &partyset 7
  5412.     &partyspeed 1
  5413.     %partypoint={100,21,%down}
  5414.     &bgm 29
  5415.  
  5416.     &on
  5417.  
  5418.     &if(Ａ==300){
  5419.         &partymove 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,6,6,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  5420.         &partymove 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,4,4,4,2,2,2,2,2,2,2,2,2,2,2
  5421.         &exec BIN\wave 1
  5422.         &patternpal PAL\CG_D.PAL
  5423.         !o1b0s0j2ホロ:b5s20j0「な、なんだなんだ！？;船が動かねぇぞ！pc
  5424.         &exec BIN\wave 1
  5425.         &partyset A,B,C,D
  5426.         !o1b0s0j2？？？:b5s22j0「グウィッ！グウィ～～！！pcs0
  5427.         &battle $1000,35,クラーケン,1
  5428.         &partyset 7
  5429.         &on
  5430.         &jsr 戦闘後処理
  5431.         &if(%exitcode==0){
  5432.             !o1b0s0j2ホロ:b5s20j0「ふう、なんとか助かったな。p
  5433.             !o1b0s0j2|2:b5s20j0「お前、何もしてないだろ。p
  5434.             !o1b0s0j2ホロ:b5s20j0「よし、先を急ぐか。p
  5435.             !o1b0s0j2|2:b5s20j0「・・・・・・。pcs0
  5436.             Ａ=310
  5437.         }
  5438.         &partymove 2,2,2,2,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
  5439.     }&else{
  5440.         &partymove 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,6,6,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  5441.         &partymove 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,4,4,4,2,2,2,2,2,2,2,2,2,2,2
  5442.         &partymove 2,2,2,2,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
  5443.     }
  5444.     &partyspeed 2
  5445.     I=777
  5446.     船=1
  5447.     &se 13
  5448.     &goto2 遺跡１Ｆ,@14,%right
  5449.  
  5450.  
  5451. //-------------------------------------------------------------------
  5452. [船帰り]
  5453. //-------------------------------------------------------------------
  5454.     &mapsp SPP\FIELD.SPP
  5455.     &mappal PAL\FIELD.PAL
  5456.     &map MAP\FIELD_.MAP
  5457.     &jsr ４人
  5458.     &partyset 7
  5459.     &partyspeed 1
  5460.     %partypoint={74,85,%right}
  5461.     &bgm 29
  5462.  
  5463.     &on
  5464.  
  5465.     &partymove 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,6,6,6,8,8,8
  5466.     &partymove 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,4,4,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  5467.     &partyspeed 2
  5468.     I=777
  5469.     船=0
  5470.     &se 13
  5471.     &goto2 観測所＿地下,@11,%left
  5472.  
  5473.  
  5474. //-------------------------------------------------------------------
  5475. [大木]
  5476. //-------------------------------------------------------------------
  5477.     &mapsp SPP\TAIBOKU.SPP
  5478.     &mappal PAL\TAIBOKU.PAL
  5479.     &map MAP\TAIBOKU.MAP
  5480.     &jsr 大
  5481.     %partypoint={@3,-%up}
  5482.     &if(%nowbgm!=20){
  5483.         &bgm 20
  5484.     }
  5485.  
  5486.     %mandef(3)={$8,1,$C5,%down,-1}    //立て札
  5487.     %mandef(4)={$C,6,$E0,%down,1}    //黒猫
  5488.     %mandef(5)={$C,6,$E0,%down,2}    //黒猫
  5489.     %mandef(9)={$F,1,$C1,%down,-1}    //ドア（開）
  5490.     %mandef(10)={$F,0,$00,%down,0}    //水晶
  5491.     %mandef(11)={$B,1,$40,%right,0}    //ラズ
  5492.     %mandef(12)={$B,1,$60,%left,0}    //ストロ
  5493.     %mandef(13)={$B,1,$80,%down,0}    //グーズ
  5494.     %manpoint(9)={100,100}
  5495.     &if(水晶==0){
  5496.         %manpoint(10)={100,100}
  5497.     }
  5498.     &if(Ａ!=110 and Ａ!=115){
  5499.         %manpoint(11)={100,100}
  5500.         %manpoint(12)={100,100}
  5501.         %manpoint(13)={100,100}
  5502.     }
  5503.     &jsr ワープ３
  5504.     &on
  5505.  
  5506.     &jsr ワープ４
  5507.  
  5508. #3    !o1s0『オールトの家:　　　　　』qc
  5509. #4    !o1s0
  5510.     &if(Ｂ>=50){
  5511.         !b0j2コモン:b5j0
  5512.     }
  5513.     &pcm 6
  5514.     !o1s0「みゃー。qc
  5515. #4    !o1s0
  5516.     &if(Ｂ>=50){
  5517.         !b0j2ムゴク:b5j0
  5518.     }
  5519.     &pcm 6
  5520.     !o1s0「みゃー。qc
  5521. #10    &if(%haveitem(オールトの指輪)==1){
  5522.         &jsr 水晶飛
  5523.     }
  5524. #11    !o1b0s0j2|4:b5s20j0「よう。調子はどうだい？;こっちは、もうちょっとで見つかりそうだぜ。qcs0
  5525.     &manmove 11,-6
  5526. #12    !o1b0s0j2|5:b5s21j0「花火が鳴ってないから、まだ誰もゴールしていないみたいね。qcs0
  5527.     &manmove 12,-4
  5528. #13    !o1b0s0j2|6:b5s20j0「・・・・・・。qcs0
  5529.     &manmove 13,-2
  5530.  
  5531. #@0    &if(%direc<0){
  5532.         &se 13
  5533.         &goto2 フィールド,@2,%down
  5534.     }
  5535. #@1    &if(%direc<0){
  5536.         %manpoint(9)={31,21}
  5537.         &on
  5538.         &pcm 1
  5539.         &goto2 大木＿中,@2,%up
  5540.     }
  5541.  
  5542.  
  5543. //-------------------------------------------------------------------
  5544. [大木＿中]
  5545. //-------------------------------------------------------------------
  5546.     &patternpal PAL\CG_E.PAL
  5547.     &mapsp SPP\KENKYU_I.SPP
  5548.     &mappal PAL\KENKYU_I.PAL
  5549.     &map MAP\TAIBOKU.MAP
  5550.     %partypoint={@3,-%up}
  5551.     &partyspeed 1
  5552.  
  5553.     %mandef(1)={$E,1,$E0,%down,0}    //オールト
  5554.     %mandef(2)={$C,2,$C0,%down,3}    //カイパー
  5555.     %mandef(6)={$1,1,$00,%down,-1}    //地図（透明）
  5556.     %mandef(7)={$E,6,$8B,%down,-1}    //本（開）
  5557.     &if(Ａ==120){
  5558.         %mandef(3)={$9,0,$C4,%down,-1}    //鉢
  5559.     }
  5560.     &if(Ａ==122 or Ａ==125){
  5561.         %mandef(3)={$9,0,$C5,%down,-1}    //ムーンダスト（芽）
  5562.     }
  5563.     &if(Ａ==128){
  5564.         %mandef(3)={$9,0,$C6,%down,-1}    //ムーンダスト（蕾）
  5565.     }
  5566.     &on
  5567.  
  5568. #1    &if(Ａ<20){
  5569.         !o1b0s0j2オールト:b5s20j0「やあ、こんにちは。今日はお一人ですか？qcs0
  5570.         &manmove 1,-2
  5571.         &&
  5572.     }
  5573.     &if(Ａ==130){
  5574.         !o1b0s0j2オールト:b5s20j0「さあ、急いだ方がいいですよ。qcs0
  5575.         &manmove 1,-2
  5576.         &&
  5577.     }
  5578.     &if(Ａ==128){
  5579.         !o1b0s0j2オールト:b5s20j0「つぼみが付きましたね。;
  5580.         !これで、大臣もムーンダストだと判ってくれるでしょう。pcs0
  5581.         &if(%rasthaveitem>0){
  5582.             &partyitemin (ムーンダスト)
  5583.             %manpoint(3)={100,100}
  5584.             &on
  5585.             !o1s0j2i(ムーンダスト)j0を手に入れた！qc
  5586.             Ａ=130
  5587.         }&else{
  5588.             &pcm 18
  5589.             !o1b2s0j1これ以上持てません！j0qcb5
  5590.         }
  5591.         &manmove 1,-2
  5592.         &&
  5593.     }
  5594.     &if(Ａ==122 or Ａ==125){
  5595.         Ａ=125
  5596.         !o1b0s0j2オールト:b5s20j0「芽が出ましたね。もう一晩で花が見られるかも知れませんよ。qcs0
  5597.         &manmove 1,-2
  5598.         &&
  5599.     }
  5600.     &if(Ａ==120){
  5601.         !o1b0s0j2オールト:b5s20j0「まだ変化はありませんよ。qcs0
  5602.         &manmove 1,-2
  5603.         &&
  5604.     }
  5605.     &if(指輪==1){
  5606.         !o1b0s0j2オールト:b5s20j0「灯台の地下に旅の水晶を設置して来てください。p;
  5607.         !扉の前で『地のレゴリアス』と唱えると、１階に地下への階段が現れますよ。qcs0
  5608.         &manmove 1,-2
  5609.         &&
  5610.     }
  5611.     &if(指輪==2){
  5612.         !o1b0s0j2オールト:b5s20j0「ご苦労様でした。p;
  5613.         !灯台に旅の水晶を置くと、この国の各地に水晶のホログラフが現れます。
  5614.         !この家の前にもあったでしょう。p;
  5615.         !そして・・・。p;
  5616.         !この指輪をどうぞ。p
  5617.         !o1s0j2i(オールトの指輪)j0を手に入れた！p
  5618.         !o1b0s0j2オールト:b5s20j0「その指輪を持ち、水晶に行きたい場所を念じれば、
  5619.         !そこまで飛んで行けます。p;
  5620.         !それは、古の人々の道具です。あなた達にはこれを使う資格があるでしょう。p
  5621.         !o1b0s0j2|2:b5s20j0「でも、そんな指輪をただで貰っちゃ悪いな。p
  5622.         !o1b0s0j2オールト:b5s20j0「それでは、そのムーンダストと交換しませんか？p
  5623.         !o1b0s0j2|2:b5s20j0「ＯＫ。p
  5624.         !o1s0j2i(ムーンダスト)j0を渡した！p
  5625.         !o1b0s0j2オールト:b5s20j0「移動できる場所は、灯台、観測所、滝、ケレス村、オアシス。p;
  5626.         !そして、この大木の前です。
  5627.         &partyitemout ムーンダスト
  5628.         &partyitemin オールトの指輪
  5629.         指輪=3
  5630.         !qcs0
  5631.         &manmove 1,-2
  5632.         &&
  5633.     }
  5634.     &if(指輪==3){
  5635.         !o1b0s0j2オールト:b5s20j0「指輪は役に立っていますか？p;
  5636.         !古の人々は、国中を飛び回っていたのでしょうね。qcs0
  5637.         &manmove 1,-2
  5638.         &&
  5639.     }
  5640.     !o1b0s0j2オールト:b5s20j0「やあ、今日は何のご用ですか？
  5641.     &if(Ａ>=290 and 指輪==0 and %haveitem(旅の水晶)==1){
  5642.         !p;おや？それは旅の水晶ですね。使い方はご存じですか？
  5643.         &if(%inkeyn==0){
  5644.             !;そうですか。それならば良いのですが。
  5645.         }&else{
  5646.             !;まずは、灯台の地下に旅の水晶を設置して来てください。p;
  5647.             !話はそれからです。p
  5648.             !o1b0s0j2|2:b5s20j0「灯台に地下なんかあったか？p
  5649.             !o1b0s0j2オールト:b5s20j0「扉の前で『地のレゴリアス』と唱えてください。p;
  5650.             !すると、１階に地下への階段が現れる筈です。
  5651.             指輪=1
  5652.         }
  5653.     }
  5654.     &if(Ａ==110 or Ａ==115){
  5655.         !p;おや？ムーンダストの種を手に入れたんですね。そうですね、花が咲くには何年も掛かります。p;
  5656.         !でも、時間を速める魔法を使えば大丈夫ですよ。今日中にって訳にはいかないですけどね。
  5657.         Ａ=118
  5658.     }
  5659.     &if(Ａ==118){
  5660.         !p;どうでしょう、私にその種を預けてみますか？
  5661.         &if(%inkeyn==0){
  5662.             &partyitemout (ムーンダストの種)
  5663.             !o1s0j2ムーンダストの種j0を渡した！p
  5664.             !o1b0s0j2オールト:b5s20j0「それでは、鉢に種をまいて。pc
  5665.             &manmove 1,-6
  5666.             %mandef(3)={$9,0,$C4,%down,-1}    //鉢
  5667.             %manpoint(3)={52,52-35}
  5668.             &on
  5669.             &wait 50
  5670.             !o1b0s0j2オールト:b5s20j0「★＃￠∽×∴＃＠〇◇￡！
  5671.             &se 3
  5672.             &freash 63521
  5673.             Ａ=120
  5674.             !p;種の周りだけ時間を速めました。;これで、一晩もすれば芽が出るはずです。p
  5675.             !o1b0s0j2|2:b5s20j0「えっ、もう終わりか？p
  5676.             !o1b0s0j2オールト:b5s20j0「魔法とはそういうものですよ。
  5677.         }&else{
  5678.             !;考えが変わったら来てください。;いつでも力になりますよ。
  5679.         }
  5680.     }
  5681.     &if(Ａ>=65 and Ａ<=70){
  5682.         !p;ムーンダスト？ああ、知ってますよ。最近は見たことがないですね。珍しい花ですから。p;
  5683.         !そういえば、ケレス村の村長が種を持っていると聞いたことがありますよ。
  5684.         Ａ=70
  5685.     }
  5686.     &if(Ｂ==10){
  5687.         !p;おや？ちょっと待ってください。p;
  5688.         !タマさんから魔力を感じます。魔法を使えるようにしてあげましょう。p;
  5689.         !★＃￠∽×∴＃＠〇◇￡！
  5690.         &se 3
  5691.         &freash 63521
  5692.         レベル=%partylevel(1)
  5693.         %racemagicdef(1)={ポー,ヒュー,ヒュル,ポラ,ヒュラ,ヒュルラ}
  5694.         %racemagiclvldef(1)={1,9,12,15,20,24}
  5695.         &on
  5696.         !p;これで魔法が使えるようになりましたよ。p
  5697.         !o1b0s0j2|2:b5s20j0「何にも変わってないぞ。p
  5698.         !o1b0s0j2オールト:b5s20j0「私は、きっかけを与えただけに過ぎません。p;
  5699.         !あとはタマさんの努力次第ですよ。p
  5700.         !o1b0s0j2|2:b5s20j0「オレは魔法を使えないのか？p
  5701.         !o1b0s0j2オールト:b5s20j0「残念ですが、クロさんには魔力はないようです。p
  5702.         !o1b0s0j2|2:b5s20j0「・・・・・・。
  5703.         Ｂ=20
  5704.     }
  5705.     !qcs0
  5706.     &manmove 1,-2
  5707. #2    !o1b0s0j2カイパー:b5s22j0「オールト様なら２階ですよ。p;
  5708.     !休んで行かれますか？;
  5709.     &se 2
  5710.     %selectlist={泊まる,旅の記録,やめる}
  5711.     &switch(%select){
  5712.     &default:
  5713.         &break
  5714.     &case 0:
  5715.         &if(Ａ==120){
  5716.             %mandef(3)={$9,0,$C5,%down,-1}    //ムーンダスト（芽）
  5717.         }
  5718.         &if(Ａ==125){
  5719.             %mandef(3)={$9,0,$C6,%down,-1}    //ムーンダスト（蕾）
  5720.         }
  5721.         &jsr 宿
  5722.         &link 100
  5723.     &case 1:
  5724.         !旅の記録ですね。p
  5725.         %partynamedef(0)=オールトの家
  5726.         &save 100,12,52,-%up
  5727.         !o1b0s0j2カイパー:b5s22j0「
  5728.     }
  5729.     !それでは、お気をつけて。qcs0
  5730. #3    !o1s0ムーンダストの鉢だ。:
  5731.     &if(Ａ==122 or Ａ==125){
  5732.         !芽が出ている。
  5733.     }
  5734.     &if(Ａ==128){
  5735.         !つぼみが付いている。
  5736.     }
  5737.     !qc
  5738. #6    !o1s0地図がある。見てみる？
  5739.     &if(%inkeyn==0){
  5740.         !c
  5741.         &monsprint 192,0,地図４
  5742.         &monsprint 128,0,地図３
  5743.         &monsprint 64,0,地図２
  5744.         &monsprint 0,0,地図１
  5745.         &monsprint 0,64,地図１２
  5746.         &monsprint 0,128,地図１１
  5747.         &monsprint 0,192,地図１０
  5748.         &monsprint 64,192,地図９
  5749.         &monsprint 128,192,地図８
  5750.         &monsprint 192,192,地図７
  5751.         &monsprint 192,128,地図６
  5752.         &monsprint 192,64,地図５
  5753.         &monsprint 128,64,地図１４
  5754.         &monsprint 64,64,地図１３
  5755.         &monsprint 64,128,地図１６
  5756.         &monsprint 128,128,地図１５
  5757.         %bcirclesize=16
  5758.         &blackcircle 1
  5759.         &pause
  5760.         &if(Ａ<20){
  5761.             !o1s0この国の地図のようだ。q
  5762.         }&else{
  5763.             !o1b0s0j2|2:b5s20j0「この国の地図だな。qs0
  5764.         }
  5765.         &blackcircle 0
  5766.     }
  5767. #7    !o1s0古い魔法の本のようだ。:難しすぎて全く解らない。qc
  5768. #100    &jsr 装備切り換え
  5769.     &bgm 20
  5770.     !o1b0s0j2カイパー:b5s22j0「お出かけですか。お気をつけて。qcs0
  5771.  
  5772. #@2    &if(%direc<0){
  5773.         &se 13
  5774.         &goto2 大木,@1,%down
  5775.     }
  5776. #@4    &if(%direc<0){
  5777.         &partymove -8
  5778.         &contrast 0
  5779.         &se 17
  5780.         &wait 150
  5781.         &mappal PAL\KENKYU_S.PAL
  5782.         &if(Ａ<130){
  5783.             %manpoint(3)={52,52}
  5784.         }
  5785.         &move @5,%up
  5786.     }
  5787. #@5    &if(%direc<0){
  5788.         &partymove -8
  5789.         &contrast 0
  5790.         &se 18
  5791.         &wait 120
  5792.         &mappal PAL\KENKYU_I.PAL
  5793.         &move @4,%up
  5794.     }
  5795.  
  5796.  
  5797. //-------------------------------------------------------------------
  5798. [城]    //ユニバニア
  5799. //-------------------------------------------------------------------
  5800.     &mapsp SPP\SIRO.SPP
  5801.     &mappal PAL\SIRO.PAL
  5802.     &map MAP\SIRO.MAP
  5803.     &jsr 大
  5804.     %partypoint={@2,-%up}
  5805.     &bgm 17
  5806.  
  5807.     %mandef(1)={$2,1,$28,%down,0}    //旗
  5808.     %mandef(2)={$2,1,$28,%down,0}    //旗
  5809.     %mandef(3)={$2,1,$28,%down,0}    //旗
  5810.     %mandef(4)={$2,1,$28,%down,0}    //旗
  5811.     %mandef(5)={$F,3,$A0,%down,0}    //勇者
  5812.     %mandef(6)={$F,3,$40,%down,2}    //兵１
  5813.     %mandef(7)={$F,3,$60,%down,0}    //兵２
  5814.     %mandef(8)={$F,3,$60,%down,0}    //兵２
  5815.     %mandef(9)={$C,6,$C0,%down,0}    //白猫
  5816.     &if(Ａ<60){
  5817.         %manpoint(6)={100,100}
  5818.     }
  5819.     &if(Ａ==40){
  5820.         %manpoint(7)={33,56}
  5821.         %manpoint(8)={31,56}
  5822.     }
  5823.     &if(Ａ==150){
  5824.         %manpoint(9)={32,60}
  5825.     }&else{
  5826.         %manpoint(9)={100,100}
  5827.     }
  5828.     &if(%partyexist(3)==0 and Ａ>150 and Ａ<250){
  5829.         %manpoint(9)={29,59}
  5830.     }
  5831.     &if(%partyexist(3)>0 and Ａ==250){
  5832.         &partyout 3
  5833.     }
  5834.     &on
  5835.  
  5836.     &if(Ａ==130){
  5837.         &pcm 20
  5838.         &wait 60
  5839.         &pcm 20
  5840.         !o1b0s0j2|2:b5s20j0「あ！p;
  5841.         &pcm 20
  5842.         !もしかして、イベント終了の花火か？qcs0
  5843.         Ａ=135
  5844.     }
  5845.     &if(Ａ==250){
  5846.         &pcm 20
  5847.         &wait 60
  5848.         &pcm 20
  5849.         !o1b0s0j2|2:b5s20j0「あ！p;
  5850.         &pcm 20
  5851.         !早速イベント終了の花火が上がったな。qc
  5852.         Ａ=255
  5853.         &partyspeed 1
  5854.         &partymove 2,2,2,2
  5855.         !o1b0s0j2|2:b5s20j0「あれ、
  5856.         &partymove -8,-4,-6,-4,-6,-8
  5857.         !白ネコがいない・・・。p;
  5858.         !ん！？竜の涙がない！p;
  5859.         !・w・w・wあの白ネコがくわえて持っていったのか？p;
  5860.         !まあ、いいか、あんな物。博士の居場所も判りそうだし。qcs0
  5861.     }
  5862.  
  5863. #1
  5864. #2
  5865. #3
  5866. #4
  5867. #5    &if(%haveitem(金のガントレット){
  5868.         !o1b0s0j2？？？:b5s20j0「おや、それは・・・p;
  5869.         !その金のガントレットの使い方を知ってる？
  5870.         &if(%inkeyn==0){
  5871.             &if(%haveitem(ネビュラソード){
  5872.                 !;ちょっと、その金のガントレットとネビュラソードを借りるよ。p
  5873.                 !o1s0j2i(金のガントレット)j0を渡した！:
  5874.                 !j2i(ネビュラソード)j0を渡した！p
  5875.                 !o1b0s0j2？？？:b5s20j0「ガントレットを剣に付けて、これをこうして・・・。p;
  5876.                 !これでＯＫ。p
  5877.                 !o1s0j2i(ネビュラソード＋)j0を手に入れた！p
  5878.                 !o1b0s0j2？？？:b5s20j0「こうすると、力のない人でも装備できるんだよ。qcs0
  5879.             }&else{
  5880.                 !;あ、その前に、ネビュラソードを装備から外してくれないかい。qcs0
  5881.             }
  5882.         }&else{
  5883.             !;そう。なら、いいんだ。qcs0
  5884.         }
  5885.         &manmove 5,-2
  5886.         &&
  5887.     }
  5888.     &if(星雲==0 and Ａ>=290 and 宝49==0){
  5889.         !o1b0s0j2？？？:b5s20j0「おや、それは・・・p;
  5890.         !この国に伝わる伝説の剣だね。qcs0
  5891.         &manmove 5,-2
  5892.         &&
  5893.     }
  5894.     &manmove 5,-2
  5895.     !o1b0s0j2？？？:b5s20j0「この国は平和だね。p:
  5896.     !s0・・・と空を見上げている。qc
  5897. #6    &if(Ａ>200 and Ａ<240){
  5898.         !o1s20「どうしたの？青い宝箱？気がつかなかったな。qcs0
  5899.     }&else{
  5900.         !o1s20「第９７回のかくれんぼ、中止になったんだ。
  5901.         !だいたい、かくれんぼでどうやって優勝を決まるんだよ。qcs0
  5902.     }
  5903. #7    &if(Ａ>=280){
  5904.         !o1s20「やあ、ジオットさんはもう見つかったんだね。qcs0
  5905.     }
  5906.     &if(Ａ>=240 and Ａ<280){
  5907.         !o1s20「それ、あの青い宝箱？見つけたんだね。すごいな。qcs0
  5908.     }
  5909.     &if(Ａ>200 and Ａ<240){
  5910.         !o1s20「あ、青い宝箱が城の外へ…。ああ、町には入って行かなかったよ。qcs0
  5911.     }
  5912.     &if(Ａ>40 and Ａ<=200){
  5913.         !o1s20「ジオットさんを探してるのかい？;会ったら言っておくよ。qcs0
  5914.     }
  5915.     &if(Ａ==40){
  5916.         !o1s20「ジオットさん？;さあ、見たような気もするな。qcs0
  5917.     }
  5918.     &if(Ａ<40){
  5919.         !o1s20「やあ、今日は何の用だい？qcs0
  5920.     }
  5921.     &manmove 7,-2
  5922. #8    &if(Ａ>=280){
  5923.         !o1s20「ふ～ん。透明になるモンスターね。そんなのがいるのかぁ。qcs0
  5924.     }
  5925.     &if(Ａ>=240 and Ａ<280){
  5926.         !o1s20「さあ、どうぞ。王様がお待ちだよ。qcs0
  5927.     }
  5928.     &if(Ａ>200 and Ａ<240){
  5929.         !o1s20「青い宝箱は城を出て西の方に行ったよ。qcs0
  5930.     }
  5931.     &if(Ａ>45 and Ａ<=200){
  5932.         !o1s20「イベントに優勝しないと、王様は会ってくれないよ。qcs0
  5933.     }
  5934.     &if(Ａ==45){
  5935.         !o1s20「さあ、どうぞ。qcs0
  5936.     }
  5937.     &if(Ａ==40){
  5938.         !o1s20「もうすぐ、イベントの説明が始まるところなんだ。;君達、参加するのかい？
  5939.         &if(%inkeyn==0){
  5940.             !;じゃあ、どうぞ。pcs0
  5941.             &manmove 8,4,4,-2
  5942.             &manmove 7,6,6,-2
  5943.             Ａ=45
  5944.             &&
  5945.         }&else{
  5946.             !;ごめんよ。;今、参加者以外は入れないんだ。qcs0
  5947.         }
  5948.     }
  5949.     &if(Ａ<40){
  5950.         !o1s20「あれ、今日は黒いヤツはどうしたんだい？qcs0
  5951.     }
  5952.     &manmove 8,-2
  5953. #9    &if(Ａ==150){
  5954.         &pcm 6
  5955.         !o1s0「にゃ～。p
  5956.         !o1b0s0j2|2:b5s20j0「あれ、観測所にいた白い猫じゃないか？p
  5957.         &pcm 6
  5958.         &partyin 3
  5959.         %manpoint(9)={100,100}
  5960.         &on
  5961.         !o1s0「にゃ～。pc
  5962.         &partyspeed 1
  5963.         &partymove 2,2,2
  5964.         &partyspeed 2
  5965.         &partymove 4,4,4,4,6,6,6,6,6,6,6,6,4,4,4,4
  5966.         &partyspeed 1
  5967.         &partymove 8,8,8,8,8,8,-2
  5968.         &partyspeed 2
  5969.         !o1b0s0j2|2:b5s20j0「ついて来るぞ。qcs0
  5970.         Ａ=155
  5971.     }&else{
  5972.         &pcm 6
  5973.         !o1s0「にゃ～。qcs0
  5974.     }
  5975.  
  5976. #@0    &if(%direc<0){
  5977.         &if(%partyexist(3)>0){
  5978.             &partyout 3
  5979.         }
  5980.         &se 13
  5981.         &goto2 フィールド,@18,%down
  5982.     }
  5983. #@1    &if(%direc<0){
  5984.         &if(%partyexist(3)>0){
  5985.             &partyout 3
  5986.         }
  5987.         &se 13
  5988.         &goto 町
  5989.     }
  5990. #@3    &if(%direc<0){
  5991.         &se 13
  5992.         &goto2 城＿中１,@5,%up
  5993.     }
  5994. #@4    &if(%direc<0){
  5995.         &se 13
  5996.         &goto2 城＿中１,@20,%up
  5997.     }
  5998. #@6    &if(%direc<0){
  5999.         &if(%partyexist(3)>0){
  6000.             &partyout 3
  6001.         }
  6002.         &se 13
  6003.         &goto2 フィールド,@15,%down
  6004.     }
  6005. #@8    &if(%direc<0){
  6006.         &wait 4
  6007.     }
  6008.  
  6009. //-------------------------------------------------------------------
  6010. [城＿中１]
  6011. //-------------------------------------------------------------------
  6012.     &mapsp SPP\SIRO_I.SPP
  6013.     &mappal PAL\SIRO_I.PAL
  6014.     &map MAP\SIRO_I1.MAP
  6015.     &if(%nowbgm!=16){
  6016.         &bgm 16
  6017.     }
  6018.  
  6019.     %mandef(1)={$A,1,$14,%up,0}    //炎
  6020.     %mandef(2)={$A,1,$14,%up,0}    //炎
  6021.     %mandef(3)={$A,1,$14,%up,0}    //炎
  6022.     %mandef(4)={$A,1,$14,%up,0}    //炎
  6023.     %mandef(5)={$A,1,$14,%up,0}    //炎
  6024.     %mandef(6)={$A,1,$14,%up,0}    //炎
  6025.     %mandef(7)={$A,1,$14,%up,0}    //炎
  6026.     %mandef(8)={$A,1,$14,%up,0}    //炎
  6027.     %mandef(9)={$A,1,$14,%up,0}    //炎
  6028.     %mandef(10)={$E,7,$EC,%down,0}    //暖炉
  6029.     %mandef(11)={$E,7,$EC,%down,0}    //暖炉
  6030.     %mandef(12)={$8,6,$8C,%down,-1}    //格子扉（入口）
  6031.     %mandef(13)={$8,6,$8C,%down,-1}    //格子扉（入口）
  6032.     %mandef(14)={$8,6,$8C,%down,-1}    //格子扉（地下）
  6033.     %mandef(15)={$8,6,$8C,%down,-1}    //格子扉（地下）
  6034.     %mandef(16)={$F,3,$40,%up,0}    //兵１（コック）
  6035.     %mandef(17)={$F,3,$40,%down,2}    //兵１（食堂）
  6036.     %mandef(18)={$F,3,$40,%left,3}    //兵１（部屋）
  6037.     %mandef(19)={$E,3,$20,%down,0}    //大臣
  6038.     %mandef(20)={$F,3,$40,%down,0}    //兵１
  6039.     %mandef(34)={$C,6,$C0,%right,0}    //白猫
  6040.     %manpoint(1)={27,34}
  6041.     %manpoint(2)={39,34}
  6042.     %manpoint(3)={27,19}
  6043.     %manpoint(4)={39,19}
  6044.     %manpoint(5)={4,5}
  6045.     %manpoint(6)={62,5}
  6046.     %manpoint(7)={2,54}
  6047.     %manpoint(8)={16,54}
  6048.     %manpoint(14)={9,10}
  6049.     %manpoint(15)={11,10}
  6050.     %manpoint(34)={49,56}
  6051.     &if(Ａ>=255){
  6052.         &if(忍者==0){
  6053.             %mandef(33)={$B,6,$20,%down,2}    //メラン
  6054.             %manpoint(33)={50,12}
  6055.         }&else{
  6056.             %mandef(33)={$B,6,$20,%down,0}    //メラン
  6057.             %mandef(35)={$A,6,$00,%up,0}    //飛丸
  6058.             %manpoint(33)={37,22}
  6059.             %manpoint(35)={35,22}
  6060.         }
  6061.     }&else{
  6062.         %mandef(33)={$B,6,$20,%down,0}    //メラン
  6063.         %manpoint(33)={100,100}
  6064.     }
  6065.     &if(Ａ>=160){
  6066.         %manpoint(12)={100,100}
  6067.         %manpoint(13)={100,100}
  6068.     }
  6069.     &if(Ａ<40 or Ａ>=135){
  6070.         %manpoint(19)={100,100}
  6071.     }
  6072.     &if(Ａ>=150 and Ａ<=200){
  6073.         %mandef(23)={$F,3,$40,%down,0}    //兵１
  6074.         %mandef(24)={$F,3,$40,%down,0}    //兵１
  6075.         %manpoint(23)={55,12}
  6076.         %manpoint(24)={57,12}
  6077.         &if(Ａ==190){
  6078.             %manpoint(23)={51,54}
  6079.             %manpoint(24)={53,54}
  6080.         }
  6081.         &if(Ａ==200){
  6082.             %manpoint(23)={49,54}
  6083.             %manpoint(24)={55,54}
  6084.         }
  6085.         %manpoint(19)={61,52}
  6086.         %manpoint(14)={100,100}
  6087.         %manpoint(15)={100,100}
  6088.     }
  6089.     &if(Ａ>=60 and Ａ<135 or Ａ>155){
  6090.         %manpoint(20)={100,100}
  6091.     }
  6092.     &if(Ａ>=140 and Ａ<=160 or Ａ>=255 and 忍者==1){
  6093.         %manpoint(20)={35,19}
  6094.     }
  6095.     &if(Ａ<40){
  6096.         %mandef(25)={$D,5,$C0,%up,3}    //村商人
  6097.         %mandef(26)={$D,5,$E0,%down,0}    //盗賊
  6098.         %mandef(27)={$A,6,$00,%right,0}    //飛丸
  6099.         %mandef(31)={$E,7,$40,%right,4}    //セイロン
  6100.         %mandef(32)={$F,7,$60,%left,3}    //ガーベッジ
  6101.         %manpoint(25)={36,26}
  6102.         %manpoint(31)={28,26}
  6103.         %manpoint(32)={40,28}
  6104.         %manpoint(26)={30,19}
  6105.         %manpoint(27)={27,31}
  6106.     }
  6107.     &if(Ａ>=40 and Ａ<=50){
  6108.         %mandef(26)={$D,5,$E0,%down,0}    //盗賊
  6109.         %mandef(28)={$B,1,$40,%left,0}    //ラズ
  6110.         %mandef(29)={$B,1,$60,%left,0}    //ストロ
  6111.         %mandef(30)={$B,1,$80,%left,0}    //グーズ
  6112.         %mandef(31)={$E,7,$40,%down,0}    //セイロン
  6113.         %mandef(32)={$F,7,$60,%up,0}    //ガーベッジ
  6114.         %manpoint(26)={29,19}
  6115.         %manpoint(28)={38,30}
  6116.         %manpoint(29)={39,28}
  6117.         %manpoint(30)={39,32}
  6118.         %manpoint(31)={28,30}
  6119.         %manpoint(32)={28,32}
  6120.     }
  6121.     &if(Ａ>=150 and Ａ<170){
  6122.         %mandef(26)={$D,5,$E0,%down,0}    //盗賊
  6123.         %mandef(28)={$B,1,$40,%up,0}    //ラズ
  6124.         %mandef(29)={$B,1,$60,%left,0}    //ストロ
  6125.         %mandef(30)={$B,1,$80,%left,0}    //グーズ
  6126.         %mandef(31)={$E,7,$40,%up,0}    //セイロン
  6127.         %mandef(32)={$F,7,$60,%up,0}    //ガーベッジ
  6128.         %manpoint(26)={55,54}
  6129.         %manpoint(28)={63,58}
  6130.         %manpoint(29)={65,56}
  6131.         %manpoint(30)={65,54}
  6132.         %manpoint(31)={59,59}
  6133.         %manpoint(32)={61,59}
  6134.     }
  6135.     &if(Ａ==190){
  6136.         %mandef(26)={$D,5,$E0,%down,0}    //盗賊
  6137.         %mandef(28)={$B,1,$40,%down,0}    //ラズ
  6138.         %mandef(29)={$B,1,$60,%down,0}    //ストロ
  6139.         %mandef(30)={$B,1,$80,%down,0}    //グーズ
  6140.         %mandef(31)={$E,7,$40,%down,0}    //セイロン
  6141.         %mandef(32)={$F,7,$60,%down,0}    //ガーベッジ
  6142.         %manpoint(26)={100,100}
  6143.         %manpoint(28)={100,100}
  6144.         %manpoint(29)={100,100}
  6145.         %manpoint(30)={100,100}
  6146.         %manpoint(31)={100,100}
  6147.         %manpoint(32)={100,100}
  6148.     }
  6149.     &if(%haveitem(ムーンダスト)==1 and Ａ<140){
  6150.         &if(%partyexist(1)==1){
  6151.             %mandef(21)={$C,0,$40,%up,-1}    //タマ
  6152.             %mandef(22)={$C,0,$60,%up,-1}    //クロ
  6153.         }&else{
  6154.             %mandef(21)={$C,0,$60,%up,-1}    //クロ
  6155.             %mandef(22)={$C,0,$40,%up,-1}    //タマ
  6156.         }
  6157.         %manpoint(20)={35,19}
  6158.         %manpoint(21)={33,37}
  6159.         %manpoint(22)={33,40}
  6160.         &jsr 順番
  6161.         &partyset 0
  6162.         &partyspeed 1
  6163.         &move 33,35,%up
  6164.     }
  6165.     &if(%partyexist(3)==0 and Ａ>=155 and Ａ<255){
  6166.         &partyin 3
  6167.     }
  6168.     &on
  6169.  
  6170.     &if(Ａ==190){
  6171.         会話ラ=0
  6172.         会話セ=0
  6173.         会話メ=0
  6174.         会話盗=0
  6175.     }
  6176.     &if(%haveitem(ムーンダスト)==1 and Ａ<140){
  6177.         &partymove 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  6178.         &partymove 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
  6179.         &se 18
  6180.         &partyset 4,5,6
  6181.         &move @9,%down
  6182.         &partymove 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,2,2,2
  6183.         &manmove 20,-8
  6184.         &pcm 3
  6185.         &wait 7
  6186.         %mandef(12)={$8,6,$8D,%down,-1}
  6187.         %mandef(13)={$8,6,$8D,%down,-1}
  6188.         &on
  6189.         &wait 7
  6190.         %mandef(12)={$8,6,$8E,%down,-1}
  6191.         %mandef(13)={$8,6,$8E,%down,-1}
  6192.         &on
  6193.         &wait 7
  6194.         %mandef(12)={$8,6,$8F,%down,-1}
  6195.         %mandef(13)={$8,6,$8F,%down,-1}
  6196.         &on
  6197.         &wait 7
  6198.         %manpoint(12)={100,100}
  6199.         %manpoint(13)={100,100}
  6200.         &on
  6201.         &manmove 20,-4
  6202.         &partymove 2,2,2,2,2,2,2,2,2
  6203.         &pcm 3
  6204.         &wait 7
  6205.         %manpoint(12)={32,17}
  6206.         %manpoint(13)={34,17}
  6207.         &on
  6208.         &wait 7
  6209.         %mandef(12)={$8,6,$8E,%down,-1}
  6210.         %mandef(13)={$8,6,$8E,%down,-1}
  6211.         &on
  6212.         &wait 7
  6213.         %mandef(12)={$8,6,$8D,%down,-1}
  6214.         %mandef(13)={$8,6,$8D,%down,-1}
  6215.         &on
  6216.         &wait 7
  6217.         %mandef(12)={$8,6,$8C,%down,-1}
  6218.         %mandef(13)={$8,6,$8C,%down,-1}
  6219.         &on
  6220.         &manmove 20,-2
  6221.         !o1s20「優勝おめでとうございます！pcs0
  6222.         &partymove 2,2,2,2,2,2,2,2,2,2,2
  6223.         !o1b0s0j2|4:b5s20j0「よう、一足遅かったな。;ネビュラソードは貰ったぜ。pc
  6224.         &partymove 4,4,2,2,2,2,2,2,2,6,6,2
  6225.         &se 10
  6226.         %manpoint(21)={100,100}
  6227.         %manpoint(22)={100,100}
  6228.         &partyset A,B
  6229.         &partyspeed 2
  6230.         Ａ=140
  6231.         &move 33,37,-%up
  6232.     }
  6233.  
  6234. #1
  6235. #2
  6236. #3
  6237. #4
  6238. #5
  6239. #6
  6240. #7
  6241. #8
  6242. #9
  6243. #10
  6244. #11
  6245. #12
  6246. #13
  6247. #14
  6248. #15
  6249. #16    &if(Ａ<280){
  6250.         !o1s20「城の兵、全員の分を作らなきゃならないなんて。p;
  6251.         !コック兵になんかならなきゃ良かったよ。qcs0
  6252.     }&else{
  6253.         !o1s20「ジオットさん、調理ロボット作ってくれないかなぁ。qcs0
  6254.     }
  6255.     &manmove 16,-8
  6256. #17    !o1s20「は～らへった～。食事はまだか～？qcs0
  6257. #18    &if(Ａ<280){
  6258.         !o1s20「王様のイベント好きも困ったもんだな。宝がどんどんなくなっちゃうよ。qcs0
  6259.     }&else{
  6260.         !o1s20「王様は伝説の勇者を探す為に、イベントを開催しているんじゃないかな。p;
  6261.         !そんな気がする。qcs0
  6262.     }
  6263. #19    &if(Ａ==200){
  6264.         !o1b0s0j2大臣:b5s20j0「おっほん。;臨機応変に対応するのが、この国のイベントの良いところである・・・wな。qcs0
  6265.     }
  6266.     &if(Ａ==190){
  6267.         !o1b0s0j2大臣:b5s20j0「う、うむ。私も見ましたぞ！;
  6268.         !これは非常事態であるな。qcs0
  6269.     }
  6270.     &if(Ａ==180){
  6271.         !o1b0s0j2大臣:b5s20j0「どうですかな？宝箱は見つかりそうですか？qcs0
  6272.     }
  6273.     &if(Ａ==170){
  6274.         !o1b0s0j2大臣:b5s20j0「ダンジョンにはいろいろなトラップも待っていますぞ。qcs0
  6275.     }
  6276.     &if(Ａ==160){
  6277.         !o1b0s0j2大臣:b5s20j0「クロさんとタマさん、参加ですな。これで人数が揃いました。p;
  6278.         !おっほん。w;これより、第９９回ユニバニア王主催イベントの開催する。pc
  6279.         &manmove 26,-6
  6280.         &partyspeed 1
  6281.         &partymove 2,2,4,4,4,4,4,4,4,4,6,6,6,6
  6282.         &partyspeed 2
  6283.         !o1b0s0j2？？？:b5s21j0「待ってください！pc
  6284.         %manpoint(33)={52,53-46}
  6285.         &se 18
  6286.         &manmove 26,-2
  6287.         &on
  6288.         &manmove 33,2,2,6,6,6,6
  6289.         !o1b0s0j2？？？:b5s21j0「メラン・ポジウムといいます。;私も参加させてください。pc
  6290.         &manmove 19,2
  6291.         !o1b0s0j2大臣:b5s20j0「ふむ、よろしいですぞ。p
  6292.         !o1b0s0j2メラン:b5s21j0「ほっ。w良かった。間に合った。pc
  6293.         &manmove 26,-6
  6294.         !o1b0s0j2大臣:b5s20j0「それでは、競技内容の説明を始める。;
  6295.         !競技名称は『宝探しダンジョン』である。p;ここより地下に広がるダンジョン、
  6296.         !その最下層にある青い宝箱を探しここに持ち帰った者を優勝とする。p;
  6297.         !ダンジョンでは、ジオット研究所製機械モンスターが行く手を阻むので用心するように。p
  6298.         !o1b0s0j2|2:b5s20j0「おいおい（汗）。p
  6299.         !o1b0s0j2大臣:b5s20j0「なお、イベント中、ダンジョンと地上との出入りは自由である。p;
  6300.         !以上である。質問はあるかな？pc
  6301.         &manmove 26,6,6
  6302.         !o1b0s0j2盗賊:b5s20j0「賞品は！p
  6303.         !o1b0s0j2大臣:b5s20j0「ふむ、優勝賞品は竜の涙である。pc
  6304.         &manmove 26,-4
  6305.         !o1b0s0j2盗賊:b5s20j0「へへ、竜の涙か。pc
  6306.         &manmove 26,-6
  6307.         &manmove 32,-4
  6308.         !o1b0s0j2ガーベッジ:b5s20j0「竜の涙って何だ？pc
  6309.         &manmove 31,-6
  6310.         !o1b0s0j2セイロン:b5s21j0「知らないんですか？b10とっても大きな宝石b5、ですよ。p
  6311.         !o1b0s0j2ガーベッジ:b5s20j0「なんだ、つまんねぇな。p;ま、金にはなるか。c
  6312.         &manmove 31,-8
  6313.         &manmove 32,-8
  6314.         !o1b0s0j2大臣:b5s20j0「それでは、競技スタート！wである。pc
  6315.         &manmove 19,8,-2
  6316.         !o1b0s0j2|4:b5s20j0「よし行くぞ。pc
  6317.         &manmove 28,8,8,8,8
  6318.         &se 18
  6319.         %manpoint(28)={100,100}
  6320.         &on
  6321.         &wait 80
  6322.         !o1b0s0j2|5:b5s21j0「グーズ、遅れないでね。pc
  6323.         &manmove 29,4,4,8,8
  6324.         &se 18
  6325.         %manpoint(29)={100,100}
  6326.         &on
  6327.         &wait 80
  6328.         &manmove 30,4,4
  6329.         &se 18
  6330.         %manpoint(30)={100,100}
  6331.         &on
  6332.         &wait 80
  6333.         !o1b0s0j2セイロン:b5s21j0「さあ、行きましょう。pc
  6334.         %mandef(31)={$E,7,$40,%up,1}    //セイロン
  6335.         &on
  6336.         &manmove 31,8,8,8,8,8,6,6,6,6
  6337.         %mandef(31)={$E,7,$40,%right,0}    //セイロン
  6338.         &on
  6339.         &se 18
  6340.         %manpoint(31)={100,100}
  6341.         &on
  6342.         &wait 80
  6343.         !o1b0s0j2ガーベッジ:b5s20j0「おい、待ってくれ！pc
  6344.         &manmove 32,6,6,8,8,8,8,8
  6345.         &se 18
  6346.         %manpoint(32)={100,100}
  6347.         &on
  6348.         &wait 80
  6349.         &manmove 26,-4
  6350.         !o1b0s0j2盗賊:b5s20j0「へへ、竜の涙か。pc
  6351.         %mandef(26)={$D,5,$E0,%right,1}    //盗賊
  6352.         &on
  6353.         &manmove 26,6,6,6,6,6,6
  6354.         %mandef(26)={$D,5,$E0,%right,0}    //盗賊
  6355.         &on
  6356.         &se 18
  6357.         %manpoint(26)={100,100}
  6358.         &on
  6359.         &wait 80
  6360.         &manmove 33,-2
  6361.         &partymove -8
  6362.         !o1b0s0j2メラン:b5s21j0「あら、確か、ケレス村でお会いしましたよね？p;
  6363.         !いくら待っても仲間が来ないので、一人で参加することにしました。p;
  6364.         !では、お先に失礼します。pc
  6365.         &manmove 33,8,6,6,6,6,6,6,6
  6366.         &se 18
  6367.         %manpoint(33)={100,100}
  6368.         &on
  6369.         &partymove -6
  6370.         Ａ=170
  6371.         %manpoint(20)={100,100}
  6372.         &on
  6373.         &&
  6374.     }
  6375.     &if(Ａ>=70 and Ａ<=130){
  6376.         !o1b0s0j2大臣:b5s20j0「おっほん。;調子はいかがですか？まだ、どなたもゴールしていませんよ。
  6377.         &if(%haveitem(ムーンダストの種)==1){
  6378.             !p;
  6379.             !むむ、ムーンダストの種を持ってきた？p;
  6380.             !しかし、その種がムーンダストだと何故判るのだ？ムーンダストだと証明出来なければダメであるな。
  6381.         }
  6382.         &if(Ａ==70 or Ａ==75){
  6383.             !p;
  6384.             !なに、滝を渡りたいと？p;
  6385.             !ふむ、イベントの為であれば仕方があるまい。許可を出しましょう。;
  6386.             !これを滝の管理人に見せるが良い。p
  6387.             Ａ=75
  6388.             &if(%rasthaveitem>0){
  6389.                 &partyitemin 通行許可証
  6390.                 !o1s0j2i(通行許可証)j0を手に入れた！
  6391.                 Ａ=80
  6392.             }&else{
  6393.                 &pcm 18
  6394.                 !o1b2s0j1これ以上持てません！j0b5p
  6395.                 !o1b0s0j2大臣:b5s20j0「おっほん。;許可はいらないのかな？
  6396.             }
  6397.         }
  6398.         !qcs0
  6399.     }
  6400.     &if(Ａ==65){
  6401.         !o1b0s0j2大臣:b5s20j0「おっほん。p;ムーンダストは、持つ者に
  6402.         !永遠の幸福をもたらすと言われる青い花である。あなた達に探せますかな。qcs0
  6403.     }
  6404.     &if(Ａ==55){
  6405.         !c
  6406.         &manmove 19,2
  6407.         像１=0
  6408.         像２=0
  6409.         像３=0
  6410.         像４=0
  6411.         う=0
  6412.         ひ=0
  6413.         き=0
  6414.         く=0
  6415.         !o1b0s0j2大臣:b5s20j0「おっほん、時間である。p;これより、イベント内容の発表を行う。pc
  6416.         &manmove 20,-2
  6417.         %mandef(26)={$D,5,$E0,%down,1}    //盗賊
  6418.         &on
  6419.         &manmove 26,2,2,2,2,2,2,2,-8
  6420.         %mandef(26)={$D,5,$E0,%up,0}    //盗賊
  6421.         &on
  6422.         &partyspeed 1
  6423.         &if(%px>36){
  6424.             &partymove 4,4,4,4
  6425.         }&else{
  6426.             &if(%px<32){
  6427.                 &partymove 6,6,6,6
  6428.             }
  6429.         }
  6430.         &if(%py<28){
  6431.             &partymove 2,2,2,2
  6432.         }
  6433.         &if(%py<28){
  6434.             &partymove 2,2,2,2
  6435.         }
  6436.         &partymove 2,2,2,2,8,8,8
  6437.         &if(%py>32){
  6438.             &partymove 8,8,8,8
  6439.         }
  6440.         &partyspeed 2
  6441.         &manmove 31,-8
  6442.         &manmove 28,-8
  6443.         &manmove 29,-8
  6444.         &manmove 30,-8
  6445.         &manmove 32,-8
  6446.         !o1b0s0j2大臣:b5s20j0「第９８回ユニバニア王主催イベントは『借り物競争』である。p;
  6447.         !ルールは単純である。各グループくじを引き、そこに書かれた品物をここに
  6448.         !持ち帰ればゴールである。p;品物は買うことはもちろん、借りてきても良い。
  6449.         !なお、グループの人数制限はなしとする。p;それでは、各グループの代表は前へ。pc
  6450.         &manmove 20,2,2
  6451.         %mandef(31)={$E,7,$40,%up,1}    //セイロン
  6452.         &on
  6453.         &manmove 31,6,6,6,6,8,8,8,8
  6454.         %mandef(31)={$E,7,$40,%up,0}    //セイロン
  6455.         &on
  6456.         &manmove 28,4,4,8,8,8,8
  6457.         &manmove 32,4,8,8,8,8,8,8
  6458.         Ａ=60
  6459.         &&
  6460.     }
  6461.     &if(Ａ==50){
  6462.         !o1b0s0j2大臣:b5s20j0「うむ。ここで、もう少し待たれよ。
  6463.         &if(き==0){
  6464.             き=1
  6465.             &jsr 城会話
  6466.         }
  6467.         !qcs0
  6468.     }
  6469.     &if(Ａ==45){
  6470.         !o1b0s0j2大臣:b5s20j0「ジオット殿？さあ、私は存じませぬな。p;
  6471.         !王様に会いたいのなら、イベントに参加し優勝なされよ。
  6472.         &if(き==0){
  6473.             き=1
  6474.             &jsr 城会話
  6475.         }
  6476.         !qcs0
  6477.     }
  6478.     &manmove 19,-2
  6479. #20    &if(Ａ>=255 and 忍者==1){
  6480.         !o1s20「そんなこと言われても困りますよ。ちゃんと、花火は鳴らしたんですから。qcs0
  6481.     }
  6482.     &if(Ａ==160){
  6483.         !o1s20「そこの階段を降りた地下ですよ。qcs0
  6484.     }
  6485.     &if(Ａ==155){
  6486.         !o1s20「イベントの参加者ですか？
  6487.         &if(%inkeyn==0){
  6488.             !c
  6489.             &manmove 20,-8
  6490.             &pcm 3
  6491.             &wait 7
  6492.             %mandef(12)={$8,6,$8D,%down,-1}
  6493.             %mandef(13)={$8,6,$8D,%down,-1}
  6494.             &on
  6495.             &wait 7
  6496.             %mandef(12)={$8,6,$8E,%down,-1}
  6497.             %mandef(13)={$8,6,$8E,%down,-1}
  6498.             &on
  6499.             &wait 7
  6500.             %mandef(12)={$8,6,$8F,%down,-1}
  6501.             %mandef(13)={$8,6,$8F,%down,-1}
  6502.             &on
  6503.             &wait 7
  6504.             %manpoint(12)={100,100}
  6505.             %manpoint(13)={100,100}
  6506.             &on
  6507.             &switch(%direc){
  6508.             &default:
  6509.                 &manmove 20,-2
  6510.                 &break
  6511.             &case 4:
  6512.                 &manmove 20,-6
  6513.                 &break
  6514.             &case 6:
  6515.                 &manmove 20,-4
  6516.                 &break
  6517.             }
  6518.             Ａ=160
  6519.             !o1s20「次のイベントは城の地下で行います。左の階段を降りてください。;
  6520.             !そこが集合場所になってます。
  6521.             &manmove 20,-2
  6522.             !qcs0
  6523.         }&else{
  6524.             !;イベント参加者以外はここから先は入れませんよ。qcs0
  6525.         }
  6526.     }
  6527.     &if(Ａ==140){
  6528.         !o1s20「ああ！それはムーンダストですね！;
  6529.         !惜しかったなぁ。ほんのちょっとの差でしたよ。p;
  6530.         !次のイベントは明日開催予定だから、また参加してください。qcs0
  6531.     }
  6532.     &if(Ａ>=65 and Ａ<70){
  6533.         !o1s20「イベント終了の花火は、国中どこにいても聞こえます。p;
  6534.         !それより、優勝しなきゃ意味がないですよ。がんばってください。qcs0
  6535.     }
  6536.     &if(Ａ>45 and Ａ<65){
  6537.         !o1s20「ちゃんと登録したよ。qcs0
  6538.     }
  6539.     &if(Ａ==45){
  6540.         !o1s20「イベントの参加者ですか？
  6541.         &if(%inkeyn==0){
  6542.             !;じゃあ、登録しておくね。;えっと、クロさんとタマさんっと。
  6543.             Ａ=50
  6544.             &if(く==0){
  6545.                 く=1
  6546.                 &jsr 城会話
  6547.             }
  6548.             !qcs0
  6549.         }&else{
  6550.             !;違うの？;えっ、ここから中は入れないよ。p
  6551.             &partymove -2
  6552.             !o1b0s0j2|2:b5s20j0「しょうがないな。博士に会えそうもないし参加してみるか？
  6553.             &if(%inkeyn==0){
  6554.                 &partymove -8
  6555.                 !o1s20「じゃあ、登録しておくね。;えっと、クロさんとタマさんっと。qcs0
  6556.                 Ａ=50
  6557.             }&else{
  6558.                 !;でも、どうやら参加しないと王様にも会えないみたいだぜ。p;
  6559.                 !面白そうだし、参加してみないか。qcs0
  6560.             }
  6561.         }
  6562.     }
  6563.     &if(Ａ<40){
  6564.         !o1s20「次のイベントはかくれんぼです！;ただ今、参加者受け付け中で～す！qcs0
  6565.     }
  6566.     &manmove 20,-2
  6567. #21
  6568. #22    %manpoint(33)={63,54-46}
  6569.     &se 17
  6570.     &on
  6571.     &wait 50
  6572.     &manmove 33,2,2,2,2,-8
  6573.     %manpoint(32)={63,54-46}
  6574.     &se 17
  6575.     &on
  6576.     &wait 50
  6577.     &manmove 32,4,4,-8
  6578.     !o1b0s0j2ガーベッジ:b5s20j0「あれもトラップなのか？qcs0
  6579.     &manmove 32,2,2,2,2,-8
  6580.     %manpoint(31)={63,54-46}
  6581.     &se 17
  6582.     &on
  6583.     &wait 50
  6584.     &manmove 31,4,4,-8
  6585.     !o1b0s0j2セイロン:b5s21j0「何が起こったのですか？qcs0
  6586.     &manmove 31,4,4,2,2,2,2,-8
  6587.     %manpoint(26)={63,54-46}
  6588.     &se 17
  6589.     &on
  6590.     &wait 50
  6591.     &manmove 26,4,4,-8
  6592.     !o1b0s0j2盗賊:b5s20j0「説明してもらおうじゃないか！qcs0
  6593.     &manmove 26,4,4,4,4,-6
  6594.     %manpoint(28)={63,54-46}
  6595.     &se 17
  6596.     &on
  6597.     &wait 50
  6598.     &manmove 28,2,2,6,6,-4
  6599.     %manpoint(29)={63,54-46}
  6600.     &se 17
  6601.     &on
  6602.     &wait 50
  6603.     &manmove 29,6,6,-4
  6604.     %manpoint(30)={63,54-46}
  6605.     &se 17
  6606.     &on
  6607.     &wait 50
  6608.     &manmove 30,8,8,6,6,-4
  6609.     &partyspeed 1
  6610.     &partymove 2,2,6,6,6,6
  6611.     &partyspeed 2
  6612.     &manmove 19,2
  6613.     !o1b0s0j2大臣:b5s20j0「おっほん。;これは非常事態のようである！p;
  6614.     !しかし、イベントをここで中止にする訳にはいかぬので、ちょっとしたルール変更を行う。p;
  6615.     !行方不明になってしまった、あの青い宝箱を見つけだし城に持ち帰った者を優勝といたす。p;
  6616.     !よろしいかな。pc
  6617.     &manmove 26,6
  6618.     !o1b0s0j2盗賊:b5s20j0「よろしいも何も、竜の涙を頂くにはそうするしかないんだろ。pc
  6619.     &manmove 19,-4
  6620.     !o1b0s0j2大臣:b5s20j0「うむ。そういうことである。p;
  6621.     &manmove 19,-2
  6622.     !それでは、再スタート！wである。pc
  6623.     &manmove 19,8,-2
  6624.     &manmove 23,4,4,-2
  6625.     &manmove 24,6,6,-2
  6626.     &manmove 31,-6
  6627.     &manmove 32,-4
  6628.     &manmove 28,2,2,-8
  6629.     &manmove 29,2,2,4,4,-6
  6630.     &manmove 30,2,2,2
  6631.     %mandef(33)={$B,6,$20,%up,4}    //メラン
  6632.     &on
  6633.     &manmove 26,2,4,4,4,4,4,4,-2
  6634.     !o1b0s0j2盗賊:b5s20j0「ちくしょう、先に行くぜ！pc
  6635.     &manmove 26,8,8,8
  6636.     &se 17
  6637.     %manpoint(26)={100,100}
  6638.     &on
  6639. #23    &if(Ａ==200){
  6640.         !o1s20「頑張ってください。qcs0
  6641.         &manmove 23,-2
  6642.         &&
  6643.     }
  6644.     &if(Ａ==190){
  6645.         !o1s20「青い宝箱は城から出ていきました！qcs0
  6646.         &manmove 23,-2
  6647.         Ａ=200
  6648.         &link 22
  6649.     }
  6650.     !o1s20「イベント中は通行止めです。qcs0
  6651.     &manmove 23,-2
  6652. #24    &if(Ａ==200){
  6653.         !o1s20「頑張ってください。qcs0
  6654.         &manmove 24,-2
  6655.         &&
  6656.     }
  6657.     &if(Ａ==190){
  6658.         !o1s20「私達も見ましたよ。qcs0
  6659.         &manmove 24,-2
  6660.         &&
  6661.     }
  6662.     !o1s20「通行止めになってます。qcs0
  6663.     &manmove 24,-2
  6664. #25    !o1s20「面白そうなんで、オラもやってみようと思うだ。qcs0
  6665. #26    &if(Ａ==200){
  6666.         !o1b0s0j2盗賊:b5s20j0「ちくしょう。;なんだったんだ？アレは。qcs0
  6667.         &&
  6668.     }
  6669.     &if(Ａ==160){
  6670.         !o1b0s0j2盗賊:b5s20j0「何でもいいから早く始めやがれ。qcs0
  6671.     }
  6672.     &if(Ａ==65){
  6673.         !o1b0s0j2盗賊:b5s20j0「ブルーナイト鉱石か。話には聞いたことあるが・・・。;
  6674.         !まあ、このオレにかかればちょろいもんよ。qcs0
  6675.         &&
  6676.     }
  6677.     &if(Ａ==60){
  6678.         !o1b0s0j2盗賊:b5s20j0「おい、早く並べよ。qcs0
  6679.         &manmove 26,-8
  6680.         &&
  6681.     }
  6682.     &if(Ａ>=40 and Ａ<=50){
  6683.         !o1s20「内緒だがな、オレは盗賊なんだ。;へへっ、今度こそお宝を頂いてやるぜ。
  6684.         &if(像４==0){
  6685.             像４=1
  6686.             &jsr 城会話
  6687.         }
  6688.         !qcs0
  6689.     }
  6690.     &if(Ａ<40){
  6691.         !o1s20「オレに何か用か。qcs0
  6692.     }
  6693.     &manmove 26,-2
  6694. #27    !o1s20「拙者、遠方の国より参った忍者でござる。p;
  6695.     !名は村咲飛丸と申す。飛丸と呼んでくだされ。qcs0
  6696.     &manmove 27,-6
  6697. #28    &if(Ａ==200){
  6698.         !o1b0s0j2|4:b5s20j0「あんな魔法は見たことも聞いたこともない。qcs0
  6699.         &manmove 28,-8
  6700.     }
  6701.     &if(Ａ==160){
  6702.         !o1b0s0j2|4:b5s20j0「悪いな、次の賞品もオレ達が貰うぜ。qcs0
  6703.         &manmove 28,-8
  6704.     }
  6705.     &if(Ａ==65){
  6706.         !o1b0s0j2|4:b5s20j0「ネビュラソードはオレ達が貰うぜ。qcs0
  6707.         &manmove 28,-6
  6708.     }
  6709.     &if(Ａ==60){
  6710.         !o1b0s0j2|4:b5s20j0「始まらないじゃないか。並べよ。qcs0
  6711.         &manmove 28,-8
  6712.     }
  6713.     &if(Ａ>=40 and Ａ<=50){
  6714.         !o1s20「ラズ・ベリーストンだ。;右は妹のストロ、左は弟のグーズ。;よろしくな。
  6715.         &if(像１==0){
  6716.             像１=1
  6717.             &jsr 城会話
  6718.         }
  6719.         !qcs0
  6720.         &manmove 28,-4
  6721.     }
  6722. #29    &if(Ａ==200){
  6723.         !o1b0s0j2|5:b5s21j0「機械で動いてた訳でもないわよね。qcs0
  6724.         &manmove 29,-6
  6725.     }
  6726.     &if(Ａ==160){
  6727.         !o1b0s0j2|5:b5s21j0「次の競技は何かしら？qcs0
  6728.         &manmove 29,-4
  6729.     }
  6730.     &if(Ａ==65){
  6731.         !o1b0s0j2|5:b5s21j0「ヒクイの羽ね。;確か、ヒクイってモンスターよね。qcs0
  6732.         &manmove 29,-2
  6733.     }
  6734.     &if(Ａ==60){
  6735.         !o1b0s0j2|5:b5s21j0「何してるの？早く並んでよ。qcs0
  6736.         &manmove 29,-8
  6737.     }
  6738.     &if(Ａ>=40 and Ａ<=50){
  6739.         !o1s21「ストロと言います。よろしく。
  6740.         &if(像２==0){
  6741.             像２=1
  6742.             &jsr 城会話
  6743.         }
  6744.         !qcs0
  6745.         &manmove 29,-4
  6746.     }
  6747. #30    &if(Ａ>=40 and Ａ<=50){
  6748.         !o1s20「・・・・・・。
  6749.         &if(像３==0){
  6750.             像３=1
  6751.             &jsr 城会話
  6752.         }
  6753.         !qcs0
  6754.         &manmove 30,-4
  6755.     }&else{
  6756.         !o1b0s0j2|6:b5s20j0「・・・・・・。qcs0
  6757.         &if(Ａ==200){
  6758.             &manmove 30,-2
  6759.             &&
  6760.         }
  6761.         &if(Ａ==160){
  6762.             &manmove 30,-4
  6763.             &&
  6764.         }
  6765.         &manmove 30,-8
  6766.     }
  6767. #31    &if(Ａ==200){
  6768.         !o1b0s0j2セイロン:b5s21j0「どこへ行ったのか見当もつかないのに、果たして見つかるのでしょうか？qcs0
  6769.         &manmove 31,-6
  6770.         &&
  6771.     }
  6772.     &if(Ａ==160){
  6773.         !o1b0s0j2セイロン:b5s21j0「今回は、ガーベッジさんとパーティを組むことにしました。qcs0
  6774.         &manmove 31,-8
  6775.         &&
  6776.     }
  6777.     &if(Ａ==65){
  6778.         !o1b0s0j2セイロン:b5s21j0「ドラゴンの卵・・・。;
  6779.         !今の時代にドラゴンなんてまだ生きているのでしょうか。p;
  6780.         !とにかく、まずは情報集めですね。qcs0
  6781.         %mandef(31)={$E,7,$40,%up,1}    //セイロン
  6782.         &on
  6783.         &manmove 31,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  6784.         %manpoint(31)={100,100}
  6785.         &se 10
  6786.         &on
  6787.         &&
  6788.     }
  6789.     &if(Ａ==60){
  6790.         !o1b0s0j2セイロン:b5s21j0「どうしました？qcs0
  6791.         &manmove 31,-8
  6792.         &&
  6793.     }
  6794.     &if(Ａ>=40 and Ａ<=50){
  6795.         !o1s21「セイロン・スプリームと言います。;
  6796.         !クロさんにタマさんですね。噂は聞いていますよ。
  6797.         &if(う==0){
  6798.             う=1
  6799.             &jsr 城会話
  6800.         }
  6801.         !qcs0
  6802.     }
  6803.     &if(Ａ<40){
  6804.         !o1s21「噂を聞きつけてやってきました。qcs0
  6805.     }
  6806.     &manmove 31,-2
  6807. #32    &if(Ａ==200){
  6808.         !o1b0s0j2ガーベッジ:b5s20j0「宙に浮いてたんだぞ。;気味が悪いぞ。qcs0
  6809.         &manmove 32,-4
  6810.         &&
  6811.     }
  6812.     &if(Ａ==160){
  6813.         !o1b0s0j2ガーベッジ:b5s20j0「オレとセイロンが組めば優勝は頂きだな。qcs0
  6814.     }
  6815.     &if(Ａ==65){
  6816.         !o1b0s0j2ガーベッジ:b5s20j0「おいっ！w;フラーレンの篭ってなんなんだ？p;
  6817.         &manmove 32,-8,-6,-4,-2
  6818.         !うおぉ～！わからねぇぞぉ！！qcs0
  6819.         &&
  6820.     }
  6821.     &if(Ａ==60){
  6822.         !o1b0s0j2ガーベッジ:b5s20j0「どうした？おじ気付いたのか？qcs0
  6823.     }
  6824.     &if(Ａ>=40 and Ａ<=50){
  6825.         !o1s20「ガーベッジと呼んでくれ。;お前等も参加するのか？;まあ、よろしく頼むわ。
  6826.         &if(ひ==0){
  6827.             ひ=1
  6828.             &jsr 城会話
  6829.         }
  6830.         !qcs0
  6831.     }
  6832.     &if(Ａ<40){
  6833.         !o1s20「うっ、かくれんぼとは・・・、オレには不利だよな。qcs0
  6834.         &&
  6835.     }
  6836.     &manmove 32,-8
  6837. #33    &if(Ａ>=255){
  6838.         &if(忍者==0){
  6839.             !o1b0s0j2メラン:b5s21j0「次のイベントまで、時間があるみたいね。p;
  6840.             !それまで、お城を見学させてもらうわ。qcs0
  6841.         }&else{
  6842.             !o1b0s0j2メラン:b5s21j0「あ、紹介するわ。p
  6843.             &manmove 33,-4
  6844.             !この人が私が探してた仲間のトビー。p
  6845.             &manmove 35,-6
  6846.             !o1b0s0j2飛丸:b5s20j0「その呼び方は、やめてくだされ。p
  6847.             &manmove 35,-8
  6848.             !o1b0s0j2メラン:b5s21j0「あら、いいじゃない。qcs0
  6849.             &manmove 33,-2
  6850.         }
  6851.     }&else{
  6852.         !o1b0s0j2メラン:b5s21j0「透明人間だったら可能よね。;そんな魔法でもあれば、だけど。qcs0
  6853.     }
  6854. #34    &pcm 6
  6855.     !o1s0「にゃ～。
  6856.     &if(Ａ==160){
  6857.         !p
  6858.         !o1b0s0j2|2:b5s20j0「なんだ、ここではついて来ないのか。
  6859.     }
  6860.     !qcs0
  6861. #35    !o1b0s0j2飛丸:b5s20j0「いつ、かくれんぼは中止になったのでござる？p;
  6862.     !拙者は今までずっと、隠れていたのでござるよ。どうしてくれるのでござる？qcs0
  6863.     &manmove 35,-8
  6864.  
  6865. #@0    &if(%direc==-8){
  6866.         &if(Ａ==60){
  6867.             &manmove 20,4,4,4,4,4,4,-2
  6868.             &manmove 28,-4
  6869.             !o1s20「それでは、こちらの方からカードを引いて頂きます。
  6870.             !引いたカードは私に見せてください。p;
  6871.             !まず、ガーベッジさん。どうぞ。p;
  6872.             &monsprint 23,4,カード表
  6873.             &wait 10
  6874.             &pcm 15
  6875.             &monsprint 23,4,カード中１
  6876.             &monsprint 23,4,カード中２
  6877.             &monsprint 23,4,カード裏１
  6878.             &wait 10
  6879.             !フラーレンの篭です。pcs0
  6880.             &manmove 20,6,6,-2
  6881.             !o1s20「どうぞ。p;
  6882.             &monsprint 23,4,カード表
  6883.             &wait 10
  6884.             &pcm 15
  6885.             &monsprint 23,4,カード中１
  6886.             &monsprint 23,4,カード中２
  6887.             &monsprint 23,4,カード裏２
  6888.             &wait 10
  6889.             !ブルーナイト鉱石です。pcs0
  6890.             &manmove 20,6,6,6,-2
  6891.             &manmove 32,-6
  6892.             !o1s20「どうぞ。p;
  6893.             &monsprint 23,4,カード表
  6894.             &wait 10
  6895.             &pcm 15
  6896.             &monsprint 23,4,カード中１
  6897.             &monsprint 23,4,カード中２
  6898.             &monsprint 23,4,カード裏３
  6899.             &wait 10
  6900.             !ドラゴンの卵です。pcs0
  6901.             &manmove 20,6,6,-2
  6902.             &manmove 26,-6
  6903.             !o1s20「クロさんタマさんチーム。;残りは２枚ですよ。;どちらのカードにしますか？;
  6904.             &monsprint 79,4,カード表
  6905.             &monsprint 23,4,カード表
  6906.             &label
  6907.             &se 2
  6908.             %selectlist={右のカード,左のカード}
  6909.             &switch(%select){
  6910.             &default:
  6911.                 &jmp @b
  6912.             &case 0:
  6913.                 X=79
  6914.                 Y=23
  6915.                 &break
  6916.             &case 1:
  6917.                 X=23
  6918.                 Y=79
  6919.                 &break
  6920.             }
  6921.             &pcm 15
  6922.             &monsprint X,4,カード中１
  6923.             &monsprint X,4,カード中２
  6924.             &monsprint X,4,カード裏４
  6925.             &wait 10
  6926.             !ムーンダストです。pcs0
  6927.             &manmove 20,6,6,-2
  6928.             &manmove 28,-8
  6929.             !o1s20「残り物は、ベリーストンさん。p;
  6930.             &pcm 15
  6931.             &monsprint Y,4,カード中１
  6932.             &monsprint Y,4,カード中２
  6933.             &monsprint Y,4,カード裏５
  6934.             &wait 10
  6935.             !ヒクイの羽です。pcs0
  6936.             &manmove 20,4,4,4,8,8,-2
  6937.             &manmove 26,-8
  6938.             &manmove 32,-8
  6939.             !o1b0s0j2大臣:b5s20j0「おっほん。;優勝者には賞品として、かの勇者が
  6940.             !使用したと伝わる伝説の武器、ネビュラソードが与えられる。p
  6941.             &manmove 28,-2
  6942.             !o1b0s0j2|4:b5s20j0「おお！;これは優勝するしかないな。p
  6943.             &manmove 28,-8
  6944.             !o1b0s0j2大臣:b5s20j0「それでは、競技スタート！wである。pcs0
  6945.             &manmove 19,8,-2
  6946.             &manmove 28,2,2,2,2,6
  6947.             &manmove 29,2
  6948.             %mandef(26)={$D,5,$E0,%up,3}    //盗賊
  6949.             %mandef(32)={$F,7,$60,%up,5}    //ガーベッジ
  6950.             &on
  6951.             &manmove 31,2,2,2
  6952.             &manmove 20,2
  6953.             !o1s20「言い忘れました！p;イベント終了の合図は花火です。;
  6954.             !イベントは優勝者が決まった時点で終了しま～す。qcs0
  6955.             Ａ=65
  6956.         }
  6957.     }
  6958. #@6    &if(%direc<0){
  6959.         &if(Ａ>=50 and Ａ<=60){
  6960.             &if(%partyexist(1)==1){
  6961.                 !o1b0s0j2|2:b5s20j0「おい、
  6962.                 &partymove -8
  6963.                 !イベントに参加するんだろ。qcs0
  6964.             }&else{
  6965.                 !o1b0s0j2|2:b5s20j0「おっと、
  6966.                 &partymove -8
  6967.                 !イベントに参加するんだったな。qcs0
  6968.             }
  6969.             &partymove 8,8,8,8
  6970.             &&
  6971.         }
  6972.         &if(Ａ==200){
  6973.             Ａ=210
  6974.         }
  6975.         &se 13
  6976.         &goto2 城,@7,%down
  6977.     }
  6978. #@8    &if(%direc<0){
  6979.         I=0
  6980.         &se 17
  6981.         &goto2 城＿中２,@11,%down
  6982.     }
  6983. #@18    &if(%direc<0){
  6984.         I=0
  6985.         &se 18
  6986.         &goto2 城＿中２,@17,%down
  6987.     }
  6988. #@20    &if(%direc<0){
  6989.         &se 13
  6990.         &goto2 城,@5,%down
  6991.     }
  6992. #@31    &if(%direc<0){
  6993.         &se 18
  6994.         &wait 100
  6995.         &if(%partyexist(3)>0){
  6996.             &partyout 3
  6997.         }
  6998.         &move @34,%down
  6999.     }
  7000. #@33    &if(%direc<0){
  7001.         &se 17
  7002.         &wait 100
  7003.         &if(Ａ==200){
  7004.             %manpoint(23)={49,54}
  7005.             %manpoint(24)={55,54}
  7006.             %manpoint(26)={100,100}
  7007.             %manpoint(28)={100,100}
  7008.             %manpoint(29)={100,100}
  7009.             %manpoint(30)={100,100}
  7010.             %manpoint(31)={100,100}
  7011.             %manpoint(32)={100,100}
  7012.             %manpoint(33)={100,100}
  7013.         }
  7014.         &if(%partyexist(3)==0){
  7015.             &partyin 3
  7016.         }
  7017.         &move @32,%down
  7018.     }
  7019. #@35    &if(%direc<0){
  7020.         &if(Ａ==160){
  7021.             !o1b0s0j2大臣:b5s20j0「おっほん。;はやるな。イベント内容の説明がまだである。qcs0
  7022.             &partymove 4,4,4,4
  7023.             &&
  7024.         }
  7025.         &if(Ａ==170){
  7026.             Ａ=180
  7027.         }
  7028.         I=100
  7029.         &se 18
  7030.         &goto2 城ダＢ１,@0,%down
  7031.     }
  7032.  
  7033.  
  7034. //-------------------------------------------------------------------
  7035. [城＿中２]
  7036. //-------------------------------------------------------------------
  7037.     &mapsp SPP\SIRO_I.SPP
  7038.     &mappal PAL\SIRO_S.PAL
  7039.     &map MAP\SIRO_I2.MAP
  7040.     &if(%nowbgm!=16){
  7041.         &bgm 16
  7042.     }
  7043.  
  7044.     %mandef(1)={$C,3,$00,%down,0}    //王様
  7045.     %mandef(2)={$F,3,$60,%down,0}    //兵２(階段）
  7046.     %mandef(3)={$F,3,$60,%down,0}    //兵２（玉座の間番）
  7047.     %mandef(4)={$F,3,$60,%down,0}    //兵２（玉座の間番）
  7048.     %mandef(5)={$A,3,$80,%down,4}    //神官
  7049.     &if(Ａ>200){
  7050.         %mandef(6)={$E,3,$20,%down,0}    //大臣
  7051.     }
  7052.     %mandef(7)={$A,1,$14,%up,0}    //炎
  7053.     %mandef(8)={$A,1,$14,%up,0}    //炎
  7054.     %mandef(9)={$A,1,$14,%up,0}    //炎
  7055.     %mandef(10)={$A,1,$14,%up,0}    //炎
  7056.     %mandef(11)={$F,3,$40,%down,5}    //兵１（見張り）
  7057.     %mandef(12)={$F,3,$40,%up,0}    //兵１（見張り）
  7058.     %mandef(13)={$E,6,$8A,%down,-1}    //本
  7059.     %mandef(14)={$8,6,$8C,%down,-1}    //格子扉（玉座の間）
  7060.     %mandef(15)={$8,6,$8C,%down,-1}    //格子扉（玉座の間）
  7061.     %mandef(16)={$8,6,$8C,%down,-1}    //格子扉（玉座の間）
  7062.     %mandef(19)={$3,1,$C2,%down,-1}    //ドア（武器庫）
  7063.     %mandef(20)={$3,1,$C2,%down,-1}    //ドア（王の部屋）
  7064.     %mandef(21)={$3,1,$C2,%down,-1}    //ドア（図書室）
  7065.     &if(Ｂ<50){
  7066.         %mandef(17)={$9,1,$00,%down,-1}    //暖炉（透明）
  7067.         %mandef(18)={$9,1,$00,%down,-1}    //暖炉（透明）
  7068.     }&else{
  7069.         %mandef(17)={$E,7,$EC,%down,0}    //暖炉
  7070.         %mandef(18)={$E,7,$EC,%down,0}    //暖炉
  7071.     }
  7072.     &if(宝02==0){
  7073.         %mandef(22)={$E,1,$CA,%down,-1}    //宝箱（閉）
  7074.     }&else{
  7075.         %mandef(22)={$E,1,$CB,%down,-1}    //宝箱（開）
  7076.     }
  7077.     &if(宝03==0){
  7078.         %mandef(23)={$E,1,$CA,%down,-1}    //宝箱（閉）
  7079.     }&else{
  7080.         %mandef(23)={$E,1,$CB,%down,-1}    //宝箱（開）
  7081.     }
  7082.     &if(宝04==0){
  7083.         %mandef(24)={$E,1,$CA,%down,-1}    //宝箱（閉）
  7084.     }&else{
  7085.         %mandef(24)={$E,1,$CB,%down,-1}    //宝箱（開）
  7086.     }
  7087.     %manpoint(1)={33,7}
  7088.     %manpoint(7)={10,23}
  7089.     %manpoint(8)={18,13}
  7090.     %manpoint(9)={56,23}
  7091.     %manpoint(10)={48,13}
  7092.     &if(Ａ>=290){
  7093.         %manpoint(2)={15,9}
  7094.     }&else{
  7095.         %manpoint(2)={17,9}
  7096.     }
  7097.     &if(Ａ>=240){
  7098.         %manpoint(14)={100,100}
  7099.         %manpoint(15)={100,100}
  7100.         %manpoint(16)={100,100}
  7101.     }
  7102.     &on
  7103.  
  7104. #1    !o1b0s0j2ユニバニア国王:b5s20j0「ほっほっほっ。
  7105.     &if(Ａ>=290){
  7106.         !p;ご苦労であった。
  7107.     }
  7108.     &if(Ａ>250 and Ａ<290){
  7109.         !p;ジオットを見つけ出して参れ。
  7110.     }
  7111.     &if(Ａ==250){
  7112.         !p;そうか。そなた等はジオットが造った機械人形であったか。
  7113.     }
  7114.     &if(Ａ==245){
  7115.         Ａ=250
  7116.         !p;ジオットじゃと？そういえば、最近会っておらんな。p;
  7117.         !何！わしに会うと言っていなくなったのか。何故それを早く言わんのだ。p
  7118.         !o1b0s0j2|2:b5s20j0「優勝しなけりゃ王様に会えないんだから、
  7119.         !しょうがないだろ。大臣は取り合ってくれなかったしな。p
  7120.         &manmove 1,-6
  7121.         !o1b0s0j2ユニバニア国王:b5s20j0「そうなのか、大臣。p
  7122.         &manmove 6,-4
  7123.         !o1b0s0j2大臣:b5s20j0「申し訳ありません。そういう取り決めなのです。p
  7124.         &manmove 1,-2
  7125.         !o1b0s0j2ユニバニア国王:b5s20j0「ふむ。ジオットには昔から世話になっておる。wどうしたものか・・・。p
  7126.         !o1b0s0j2大臣:b5s20j0「王様、古の灯台に住む占い師に聞いてみてはいかがでしょう？p
  7127.         &manmove 1,-6
  7128.         !o1b0s0j2ユニバニア国王:b5s20j0「おお、そうじゃな。p;
  7129.         &manmove 1,-2
  7130.         !灯台の占い師にジオットの居場所を占ってもらうと良い。扉を開ける呪文は、w大臣。p
  7131.         &manmove 6,-2
  7132.         !o1b0s0j2大臣:b5s20j0「灯台の扉を開ける呪文は・・・w;『風のウィンドシア』である。p
  7133.         !o1b0s0j2ユニバニア国王:b5s20j0「ジオットを見つけ出して参れ。頼むぞ。
  7134.     }
  7135.     &if(Ａ==240){
  7136.         !ご苦労であった。p;よく見ると、そなた等は人間ではないようじゃな。
  7137.     }
  7138.     &manmove 1,-2
  7139.     !qcs0
  7140. #2    !o1s20「この階段は王様専用である。qcs0
  7141.     &manmove 2,-2
  7142. #3    &if(Ａ<230){
  7143.         !o1s20「ここは玉座の間である。許可のない者は早急に立ち去られよ。qcs0
  7144.     }
  7145.     &if(Ａ>230){
  7146.         !o1s20「どうぞ。お入りください。qcs0
  7147.     }
  7148.     &if(Ａ==230){
  7149.         !o1s20「おお！それはまさに行方不明の青い宝箱！p;
  7150.         !さあ、王様がお待ちです。pcs0
  7151.         &manmove %manno,-8
  7152.         Ａ=240
  7153.         &pcm 3
  7154.         &wait 7
  7155.         %mandef(14)={$8,6,$8D,%down,-1}
  7156.         %mandef(15)={$8,6,$8D,%down,-1}
  7157.         %mandef(16)={$8,6,$8D,%down,-1}
  7158.         &on
  7159.         &wait 7
  7160.         %mandef(14)={$8,6,$8E,%down,-1}
  7161.         %mandef(15)={$8,6,$8E,%down,-1}
  7162.         %mandef(16)={$8,6,$8E,%down,-1}
  7163.         &on
  7164.         &wait 7
  7165.         %mandef(14)={$8,6,$8F,%down,-1}
  7166.         %mandef(15)={$8,6,$8F,%down,-1}
  7167.         %mandef(16)={$8,6,$8F,%down,-1}
  7168.         &on
  7169.         &wait 7
  7170.         %manpoint(14)={100,100}
  7171.         %manpoint(15)={100,100}
  7172.         %manpoint(16)={100,100}
  7173.         &on
  7174.     }
  7175.     &manmove %manno,-2
  7176. #4    &link 3
  7177. #5    &if(Ａ>=290){
  7178.         !o1s20「王様の部屋にある本を見ましたか？p;
  7179.         !あの本は子供向けの絵本なんですよ。いえいえ、伝説は本当に存在しますよ。qcs0
  7180.     }&else{
  7181.         !o1s20「今の平和なこの世界に、勇者と呼べる人がいるのでしょうか？qcs0
  7182.     }
  7183. #6    &if(Ａ>=290){
  7184.         !o1b0s0j2大臣:b5s20j0「ジオット博士が無事で何よりである。qcs0
  7185.     }
  7186.     &if(Ａ>250 and Ａ<290){
  7187.         !o1b0s0j2大臣:b5s20j0「なんと、ジオット博士は砂漠のオアシスにいると出たのであるか。qcs0
  7188.     }
  7189.     &if(Ａ==250){
  7190.         !o1b0s0j2大臣:b5s20j0「灯台の扉を開ける呪文は;『風のウィンドシア』である。qcs0
  7191.     }
  7192.     &if(Ａ==245){
  7193.         !o1b0s0j2大臣:b5s20j0「今なら、王様と自由に話せますぞ。qcs0
  7194.     }
  7195.     &if(Ａ==240){
  7196.         !o1b0s0j2大臣:b5s20j0「ふむふむ。透明になるモンスターの仕業であったのであるか。p;
  7197.         !・w・w・wそうである。王様に何か用事があったのではないかな？p
  7198.         !o1b0s0j2|2:b5s20j0「ああっ！！そうだった。イベントに夢中になってて忘れてた。qcs0
  7199.         Ａ=245
  7200.     }
  7201.     &manmove 6,-2
  7202. #7
  7203. #8
  7204. #9
  7205. #10
  7206. #11    &if(Ａ>=290){
  7207.         !o1s20「こんな平和な時代に見張ってても意味ないよなぁ。p;あ！w聞こえてた？お願い、今の内緒にして。qcs0
  7208.     }&else{
  7209.         !o1s20「あれ、屋上に人がいたような・・・。p;気のせいかな。qcs0
  7210.     }
  7211. #12    &if(Ａ>=290){
  7212.         !o1s20「異常ありません！qcs0
  7213.     }&else{
  7214.         !o1s20「・w・w・。p;
  7215.         &manmove 12,-6,-4,-6,-4
  7216.         !は！w寝てしまった・・・。qcs0
  7217.     }
  7218.     &manmove 12,-8
  7219. #13    !o1s0本がある。読んでみる？
  7220.     &if(%inkeyn==0){
  7221.         !c
  7222.         %mandef(13)={$E,6,$8B,%down,-1}    //本（開）
  7223.         &on
  7224.         &pcm 15
  7225.         &monsprint 95,23,本１
  7226.         !o1『その時、青き鎧を身にまとった勇者が天より舞い降りた。p;
  7227.         !その手足は金に輝き、その背中には銀の羽があった。』qc
  7228.         %mandef(13)={$E,6,$8A,%down,-1}    //本
  7229.         &on
  7230.     }
  7231. #14
  7232. #15
  7233. #16
  7234. #17    &if(Ｂ==30 or Ｂ==40){
  7235.         !o1b0s0j2|2:b5s20j0「ん！？p;
  7236.         !暖炉の奥の壁に、何か書いてあるぞ・・・。p;
  7237.         !『トンロという名の猫に聞け』と書いてある。qcs0
  7238.         Ｂ=40
  7239.     }
  7240. #18    &link 17
  7241. #19    鍵=王様の鍵
  7242.     &jsr 鍵戸
  7243. #20    鍵=王様の鍵
  7244.     &jsr 鍵戸
  7245. #21    鍵=王様の鍵
  7246.     &jsr 鍵戸
  7247. #22    &if(宝02==0){
  7248.         鍵=王様の鍵
  7249.         宝=勇気のかけら
  7250.         &jsr 鍵宝箱
  7251.         &if(宝箱フラグ==1){
  7252.             宝02=1
  7253.         }
  7254.     }&else{
  7255.         &jsr 空
  7256.     }
  7257. #23    &if(宝03==0){
  7258.         鍵=王様の鍵
  7259.         宝=星のかけら
  7260.         &jsr 鍵宝箱
  7261.         &if(宝箱フラグ==1){
  7262.             宝03=1
  7263.         }
  7264.     }&else{
  7265.         &jsr 空
  7266.     }
  7267. #24    &if(宝04==0){
  7268.         鍵=王様の鍵
  7269.         宝=月のかけら
  7270.         &jsr 鍵宝箱
  7271.         &if(宝箱フラグ==1){
  7272.             宝04=1
  7273.         }
  7274.     }&else{
  7275.         &jsr 空
  7276.     }
  7277. #25    &if(%haveitem(竜の涙)==0){
  7278.         鍵=王様の鍵
  7279.         宝=竜の涙
  7280.         &jsr 鍵宝箱
  7281.         !o1b0s0j2ユニバニア国王:b5s20j0「その鍵も自由に使って良いぞ。;
  7282.         !ほっほっほっ。qcs0
  7283.     }&else{
  7284.         &jsr 空
  7285.     }
  7286.  
  7287. #@0    &if(%direc<0){
  7288.         &wait 4
  7289.     }
  7290. #@1    &if(%direc<0){
  7291.         &wait 7
  7292.     }
  7293. #@2    &if(%direc<0){
  7294.         &if(%haveitem(青い宝箱)==1){
  7295.             &partyspeed 1
  7296.             &partymove 8,8
  7297.             &switch(%px){
  7298.             &case 31:
  7299.                 &partymove 6
  7300.             &case 32:
  7301.                 &partymove 6
  7302.                 &break
  7303.             &case 35:
  7304.                 &partymove 4
  7305.             &case 34:
  7306.                 &partymove 4
  7307.             &default:
  7308.             }
  7309.             &partymove 8,8,8,8,8,8,8,8,8,8,8,8,8,8,-8
  7310.             &partyspeed 2
  7311.             !o1b0s0j2ユニバニア国王:b5s20j0「ほっほっほっ。;ご苦労であった。pc
  7312.             &manmove 6,2,2,4,-2
  7313.             !o1b0s0j2大臣:b5s20j0「それでは、青い宝箱をここに。pc
  7314.             %mandef(25)={$5,1,$CA,%down,-1}    //宝箱（閉）
  7315.             %manpoint(25)={%px,%py-4}
  7316.             &on
  7317.             &partyitemout 青い宝箱
  7318.             &manmove 6,2,2,-4
  7319.             !o1b0s0j2大臣:b5s20j0「うむ。確かに失くなった宝箱のようであるな。p;
  7320.             &manmove 6,-8
  7321.             !王様、ではこの者達の優勝としてよろしいでしょうか？q
  7322.             !o1b0s0j2ユニバニア国王:b5s20j0「ほっほっほっ。;もちろんじゃ。pc
  7323.             &manmove 6,2,2,2,-4
  7324.             &partymove -6
  7325.             !o1b0s0j2大臣:b5s20j0「おっほん。;pそれでは、クロ、タマの２名を、
  7326.             !第９９回ユニバニア王主催イベントの優勝者とする。
  7327.             &bgm 44
  7328.             !p;
  7329.             !優勝賞品はこの青い宝箱の中に入っている竜の涙である。これを使って開けるが良い。p
  7330.             !o1s0j2i(王様の鍵)j0を手に入れた！qc
  7331.             &partyitemin 王様の鍵
  7332.             &manmove 6,6
  7333.             &partymove -8
  7334.             &manmove 6,8,8,8,8,8,8,8,-2
  7335.         }
  7336.     }
  7337. #@10    &if(%direc<0){
  7338.         I=0
  7339.         &se 18
  7340.         &goto2 城＿中１,@9,%down
  7341.     }
  7342. #@12    &if(%direc<0){
  7343.         &se 17
  7344.         &wait 100
  7345.         &move @15,%down
  7346.     }
  7347. #@14    &if(%direc<0){
  7348.         &se 18
  7349.         &wait 100
  7350.         &move @13,%down
  7351.     }
  7352. #@16    &if(%direc<0){
  7353.         I=0
  7354.         &se 17
  7355.         &goto2 城＿中１,@19,%down
  7356.     }
  7357. #@21    &if(%direc<0){
  7358.         &se 17
  7359.         &wait 100
  7360.         &move @25,%down
  7361.     }
  7362. #@22    &if(%direc<0){
  7363.         &se 17
  7364.         &wait 100
  7365.         &move @26,%down
  7366.     }
  7367. #@23    &if(%direc<0){
  7368.         &se 17
  7369.         &wait 100
  7370.         &move @27,%down
  7371.     }
  7372. #@24    &if(%direc<0){
  7373.         &se 17
  7374.         &wait 100
  7375.         &move @28,%down
  7376.     }
  7377. #@25    &if(%direc<0){
  7378.         &se 18
  7379.         &wait 100
  7380.         &move @21,%down
  7381.     }
  7382. #@26    &if(%direc<0){
  7383.         &se 18
  7384.         &wait 100
  7385.         &move @22,%down
  7386.     }
  7387. #@27    &if(%direc<0){
  7388.         &se 18
  7389.         &wait 100
  7390.         &move @23,%down
  7391.     }
  7392. #@28    &if(%direc<0){
  7393.         &se 18
  7394.         &wait 100
  7395.         &move @24,%down
  7396.     }
  7397. #@29    &if(%direc<0){
  7398.         &se 17
  7399.         &wait 100
  7400.         &move @30,%down
  7401.     }
  7402. #@30    &if(%direc<0){
  7403.         &se 18
  7404.         &wait 100
  7405.         &move @29,%down
  7406.     }
  7407.  
  7408.  
  7409. //-------------------------------------------------------------------
  7410. [城ダＢ１]
  7411. //-------------------------------------------------------------------
  7412.     &mapsp SPP\SIRO_D.SPP
  7413.     &mappal PAL\SIRO_D13.PAL
  7414.     &map MAP\SIRO_DB1.MAP
  7415.     %partypoint={@0,%down}
  7416.     &if(I==100){
  7417.         &bgm 31
  7418.         %bcirclesize=16
  7419.     }
  7420.     &blackcircle 1
  7421.  
  7422.     %mandef(1)={$1,6,$89,%down,-1}    //石戸
  7423.     %mandef(2)={$1,6,$88,%down,-1}    //ドア
  7424.     %mandef(3)={$1,6,$88,%down,-1}    //ドア
  7425.     %mandef(4)={$2,7,$E8,%down,0}    //泉
  7426.     &if(宝30==0){
  7427.         %mandef(5)={$E,1,$CA,%down,-1}    //宝箱（閉）
  7428.     }&else{
  7429.         %mandef(5)={$E,1,$CB,%down,-1}    //宝箱（開）
  7430.     }
  7431.     %mandef(6)={$E,1,$CB,%down,-1}    //宝箱（開）
  7432.     %mandef(7)={$3,1,$C5,%down,-1}    //立て札
  7433.     %mandef(8)={$3,1,$C5,%down,-1}    //立て札
  7434.     %mandef(9)={$3,1,$C5,%down,-1}    //立て札
  7435.     %mandef(10)={$3,1,$C5,%down,-1}    //立て札
  7436.     &if(会話メ==0 and Ａ<190){
  7437.         %mandef(11)={$B,6,$20,%down,3}    //メラン
  7438.     }
  7439.     &if(会話セ==0 and Ａ<190){
  7440.         %mandef(12)={$E,7,$40,%down,3}    //セイロン
  7441.         %mandef(13)={$F,7,$60,%down,4}    //ガーベッジ
  7442.     }
  7443.     &if(会話メ==2 and Ａ<190){
  7444.         %mandef(14)={$B,6,$20,%down,3}    //メラン
  7445.     }
  7446.     &if(Ａ==190){
  7447.         %mandef(15)={$B,6,$20,%down,0}    //メラン
  7448.         %manpoint(1)={100,100}
  7449.     }
  7450.     &monsprint 84,100,Ｂ０１
  7451.     &on
  7452.     &if(I==100){
  7453.         &jsr ライト
  7454.     }
  7455.     &wait 15
  7456.     &monsprint 84,100,Ｂ１１
  7457.     &wait 10
  7458.     &monsprint 84,100,Ｂ００
  7459.  
  7460. #1    &if(%direc==8){
  7461.         %manpoint(1)={100,100}
  7462.         &pcm 5
  7463.         &on
  7464.     }&else{
  7465.         !o1s0こちらからは開かないようだ。qc
  7466.     }
  7467. #2    鍵=ダンジョンの鍵
  7468.     &jsr 鍵戸
  7469. #3    &link 2
  7470. #4    &jsr 聖水飲む
  7471. #5    &if(宝30==0){
  7472.         鍵=ダンジョンの鍵
  7473.         宝=石の剣
  7474.         &jsr 鍵宝箱
  7475.         &if(宝箱フラグ==1){
  7476.             宝30=1
  7477.         }
  7478.     }&else{
  7479.         &jsr 空
  7480.     }
  7481. #6    &jsr 空
  7482. #7    !o1s0『ヒントその４;各階に回復の泉が一つあるぞい;そこまで頑張るのじゃ』qc
  7483. #8    !o1s0『ヒントその３;目的の宝はダンジョン地下５階にあるぞい』qc
  7484. #9    !o1s0『ヒントその２;ドアを開けるには鍵が必要じゃ;まずは鍵を捜すのじゃ』qc
  7485. #10    !o1s0『ヒントその１;落とし穴には一度は落ちるべし;じゃな』qc
  7486. #11    !o1b0s0j2メラン:b5s21j0「やっぱり、あの穴に一度落ちた方がいいのかしら。qc
  7487.     会話メ=1
  7488. #12    !o1b0s0j2セイロン:b5s21j0「ドアを開けるには鍵が必要なようですね。qcs0
  7489.     会話セ=1
  7490. #13    !o1b0s0j2ガーベッジ:b5s20j0「白い立て札見たか？p;あれはたぶん、王様の言葉だろうな。qcs0
  7491.     会話セ=1
  7492. #14    !o1b0s0j2メラン:b5s21j0「宝箱に入ってるのは石の剣ばかりね。qcs0
  7493. #15    !o1b0s0j2メラン:b5s21j0「た、宝箱が飛んで・・・上に。qcs0
  7494.  
  7495. #@0    &if(%direc<0){
  7496.         I=0
  7497.         &se 17
  7498.         &goto2 城＿中１,@35,%down
  7499.     }
  7500. #@1    &if(%direc<0){
  7501.         I=100
  7502.         &se 18
  7503.         &goto2 城ダＢ２,@0,%down
  7504.     }
  7505. #@2    &if(%direc<0){
  7506.         I=0
  7507.         &se 18
  7508.         &goto2 城ダＢ２,@2,%down
  7509.     }
  7510. #@3    &if(%direc<0){
  7511.         I=99
  7512.         &jsr 落ちる
  7513.         &goto2 城ダＢ２,@6,%down
  7514.     }
  7515. #@30    &jsr 敵１
  7516.     &patternpal PAL\CG_A.PAL
  7517.     &switch(%rnd(4)){
  7518.     &case 0:
  7519.         &battle $0,35,フタツボシ,%rnd(3)+1
  7520.         &break
  7521.     &case 1:
  7522.         &battle $0,35,コプロー,%rnd(2)+1
  7523.         &break
  7524.     &case 2:
  7525.         &battle $0,35,ウィンテル,%rnd(2)+1
  7526.         &break
  7527.     &case 3:
  7528.         &battle $0,35,フタツボシ,1,ウィンテル,1
  7529.         &break
  7530.     }
  7531.     &jsr 戦闘後処理
  7532.  
  7533.  
  7534. //-------------------------------------------------------------------
  7535. [城ダＢ２]
  7536. //-------------------------------------------------------------------
  7537.     &map MAP\SIRO_DB2.MAP
  7538.     %partypoint={@0,%down}
  7539.     &blackcircle 1
  7540.  
  7541.     %mandef(1)={$1,6,$88,%down,-1}    //ドア
  7542.     %mandef(2)={$1,6,$88,%down,-1}    //ドア
  7543.     &if(宝31==0){
  7544.         %mandef(3)={$E,1,$CA,%down,-1}    //宝箱（閉）
  7545.     }&else{
  7546.         %mandef(3)={$E,1,$CB,%down,-1}    //宝箱（開）
  7547.     }
  7548.     &if(宝32==0){
  7549.         %mandef(4)={$E,1,$CA,%down,-1}    //宝箱（閉）
  7550.     }&else{
  7551.         %mandef(4)={$E,1,$CB,%down,-1}    //宝箱（開）
  7552.     }
  7553.     %mandef(5)={$2,7,$E8,%down,0}    //泉
  7554.     %mandef(6)={$E,1,$CA,%down,-1}    //宝箱（閉）
  7555.     %mandef(7)={$E,1,$CB,%down,-1}    //宝箱（開）
  7556.     %mandef(8)={$E,1,$CB,%down,-1}    //宝箱（開）
  7557.     %mandef(9)={$E,1,$CA,%down,-1}    //宝箱（閉）
  7558.     %mandef(10)={$E,1,$CA,%down,-1}    //宝箱（閉）
  7559.     %mandef(11)={$3,1,$C5,%down,-1}    //立て札
  7560.     %mandef(12)={$3,1,$C5,%down,-1}    //立て札
  7561.     %mandef(13)={$3,1,$C5,%down,-1}    //立て札
  7562.     &if(会話盗==0 and Ａ<190){
  7563.         %mandef(14)={$D,5,$E0,%down,0}    //盗賊
  7564.         %manpoint(14)={41,29}
  7565.     }
  7566.     &if(会話ラ==0 and Ａ<190){
  7567.         %mandef(15)={$B,1,$40,%down,3}    //ラズ
  7568.         %mandef(16)={$B,1,$60,%down,3}    //ストロ
  7569.         %mandef(17)={$B,1,$80,%down,3}    //グーズ
  7570.     }
  7571.     &monsprint 84,100,Ｂ０２
  7572.     &on
  7573.     &wait 15
  7574.     &monsprint 84,100,Ｂ１２
  7575.     &wait 10
  7576.     &monsprint 84,100,Ｂ００
  7577.  
  7578.     &if(I==99){
  7579.         I=0
  7580.         &wait 50
  7581.         &jsr 落ちる
  7582.         &goto2 城ダＢ３,@12,%down
  7583.     }&else{
  7584.         &if(会話盗==0 and I==100){
  7585.             %mandef(14)={$D,5,$E0,%down,1}    //盗賊
  7586.             &on
  7587.             &pcm 21
  7588.             &manmove 14,-8,-2,-6
  7589.             !o1b0s0j2盗賊:b3s20j0「うわぁ～～～～！！;
  7590.             &se 16
  7591.             &manmove 14,4,4,4,4,4,4,4,4,4,4,4,2,4,4,4,4,4,4,4,4
  7592.             &pcm 21
  7593.             !あぁ～～～～！pc
  7594.             &se 16
  7595.             &manmove 14,4,4,4,4,4,4,4
  7596.             会話盗=1
  7597.             %manpoint(14)={100,100}
  7598.             &on
  7599.             &se 16
  7600.         }
  7601.     }
  7602.  
  7603. #1    鍵=ダンジョンの鍵
  7604.     &jsr 鍵戸
  7605. #2    &link 1
  7606. #3    &if(宝31==0){
  7607.         鍵=ダンジョンの鍵
  7608.         宝=石の剣
  7609.         &jsr 鍵宝箱
  7610.         &if(宝箱フラグ==1){
  7611.             宝31=1
  7612.         }
  7613.     }&else{
  7614.         &jsr 空
  7615.     }
  7616. #4    &if(宝32==0){
  7617.         鍵=ダンジョンの鍵
  7618.         宝=石の剣
  7619.         &jsr 鍵宝箱
  7620.         &if(宝箱フラグ==1){
  7621.             宝32=1
  7622.         }
  7623.     }&else{
  7624.         &jsr 空
  7625.     }
  7626. #5    &jsr 聖水飲む
  7627. #6    鍵=王様の鍵
  7628.     宝=石の剣
  7629.     &jsr 鍵宝箱
  7630. #7    &jsr 空
  7631. #8    &link 7
  7632. #9    &link 6
  7633. #10    &link 6
  7634. #11    !o1s0『ヒントその６;騎士たるもの剣を持つべしじゃ』qc
  7635. #12    !o1s0『ヒントその５;ダンジョン地下３階への階段は４ヶ所じゃ』qc
  7636. #13    !o1s0『ヒントその７;石の扉は鍵では開かないのじゃ』qc
  7637. #14
  7638. #15    !o1b0s0j2|4:b5s20j0「う～む、オレ達の見つけたダンジョンの鍵では開かない宝箱があるな。qcs0
  7639.     会話ラ=1
  7640. #16    !o1b0s0j2|5:b5s21j0「あの湧き出てる水を飲んでみた？p;結構美味しいわよ。qcs0
  7641.     会話ラ=1
  7642. #17    !o1b0s0j2|6:b5s20j0「・・・・・・。qcs0
  7643.     会話ラ=1
  7644.  
  7645. #@0    &if(%direc<0){
  7646.         I=0
  7647.         &se 17
  7648.         &goto2 城ダＢ１,@1,%down
  7649.     }
  7650. #@1    &if(%direc<0){
  7651.         &se 18
  7652.         &goto2 城ダＢ３,@0,%down
  7653.     }
  7654. #@2    &if(%direc<0){
  7655.         &se 17
  7656.         &goto2 城ダＢ１,@2,%down
  7657.     }
  7658. #@3    &if(%direc<0){
  7659.         &se 18
  7660.         &goto2 城ダＢ３,@2,%down
  7661.     }
  7662. #@4    &if(%direc<0){
  7663.         &se 18
  7664.         &goto2 城ダＢ３,@5,%down
  7665.     }
  7666. #@5    &if(%direc<0){
  7667.         &se 18
  7668.         &goto2 城ダＢ３,@4,%down
  7669.     }
  7670. #@7    &if(%direc<0){
  7671.         &jsr 落ちる
  7672.         &goto2 城ダＢ３,@6,%down
  7673.     }
  7674. #@8    &if(%direc<0){
  7675.         &jsr トラップ
  7676.         &partymove 4,4,4,4,4,4,4,4,4,4,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
  7677.         &link @9
  7678.     }
  7679. #@9    &if(%direc<0){
  7680.         &jsr トラップ
  7681.         &partymove 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  7682.         I=-2
  7683.         &jsr 落ちる
  7684.         &goto2 城ダＢ３,@6,%down
  7685.     }
  7686. #@10    &if(%direc<0){
  7687.         &jsr トラップ
  7688.         &partymove 2,2,2,2,2,2,2,2,2,2,2
  7689.     }
  7690. #@11    &if(%direc<0){
  7691.         &jsr トラップ
  7692.         &partymove 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  7693.     }
  7694. #@12    &if(%direc<0){
  7695.         &jsr トラップ
  7696.         &partymove 2,2,2,2,2,2,2,2,2,2,2,2,2,2
  7697.     }
  7698. #@13    &if(%direc<0){
  7699.         &jsr トラップ
  7700.         &partymove 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  7701.     }
  7702. #@14    &if(%direc<0){
  7703.         &jsr トラップ
  7704.         &partymove 6,6,6,6,6,6,6,6,6,6,6
  7705.         &link @31
  7706.     }
  7707. #@15    &if(%direc<0){
  7708.         &jsr トラップ
  7709.         &partymove 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
  7710.     }
  7711. #@16    &if(%direc<0){
  7712.         &jsr トラップ
  7713.         &partymove 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  7714.         &link @9
  7715.     }
  7716. #@18    &if(%direc<0){
  7717.         &jsr トラップ
  7718.         &partymove 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
  7719.     }
  7720. #@19    &if(%direc<0){
  7721.         &jsr トラップ
  7722.         &partymove 8,8,8,8,8,8,8,8,8,8,8,8
  7723.     }
  7724. #@20    &if(%direc<0){
  7725.         &jsr トラップ
  7726.         &partymove 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
  7727.         &link @21
  7728.     }
  7729. #@21    &if(%direc<0){
  7730.         &jsr トラップ
  7731.         &partymove 2,2,2,2,2,2,2,2,2,2,2,2,2,2
  7732.         &link @22
  7733.     }
  7734. #@22    &if(%direc<0){
  7735.         &jsr トラップ
  7736.         &partymove 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
  7737.     }
  7738. #@23    &if(%direc<0){
  7739.         &jsr トラップ
  7740.         &partymove 2,2,2,2,2,2,2
  7741.     }
  7742. #@24    &if(%direc<0){
  7743.         &jsr トラップ
  7744.         &partymove 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  7745.     }
  7746. #@25    &if(%direc<0){
  7747.         &jsr トラップ
  7748.         &partymove 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
  7749.     }
  7750. #@26    &if(%direc<0){
  7751.         &jsr トラップ
  7752.         &partymove 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  7753.         &link @27
  7754.     }
  7755. #@27    &if(%direc<0){
  7756.         &jsr トラップ
  7757.         &partymove 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
  7758.         &link @12
  7759.     }
  7760. #@31    &if(%direc<0){
  7761.         &jsr トラップ
  7762.         &partymove 8,8,8,8,8,8,8,8
  7763.         &link @15
  7764.     }
  7765. #@40    &jsr 敵１
  7766.     &patternpal PAL\CG_A.PAL
  7767.     &switch(%rnd(6)){
  7768.     &case 0:
  7769.         &battle $0,35,フタツボシ,%rnd(3)+1
  7770.         &break
  7771.     &case 1:
  7772.         &battle $0,35,ウィンテル,%rnd(3)+1
  7773.         &break
  7774.     &case 2:
  7775.         &battle $0,35,オルガンくん,%rnd(2)+1
  7776.         &break
  7777.     &case 3:
  7778.         &battle $0,35,フタツボシ,%rnd(2)+1,オルガンくん,%rnd(2)+1
  7779.         &break
  7780.     &case 4:
  7781.         &battle $0,35,ウィンテル,%rnd(2)+1,オルガンくん,%rnd(2)+1
  7782.         &break
  7783.     &case 5:
  7784.         &battle $0,35,オルガンくん,%rnd(2)+1,フタツボシ,%rnd(2)+1
  7785.         &break
  7786.     }
  7787.     &jsr 戦闘後処理
  7788.  
  7789.  
  7790. //-------------------------------------------------------------------
  7791. [城ダＢ３]
  7792. //-------------------------------------------------------------------
  7793.     &mappal PAL\SIRO_D13.PAL
  7794.     &map MAP\SIRO_DB3.MAP
  7795.     %partypoint={@0,%down}
  7796.     &blackcircle 1
  7797.  
  7798.     %mandef(1)={$1,6,$89,%down,-1}    //石戸
  7799.     %mandef(2)={$1,6,$89,%down,-1}    //石戸
  7800.     %mandef(3)={$1,6,$89,%down,-1}    //石戸
  7801.     %mandef(4)={$1,7,$2C,%down,-1}    //レバーＡ
  7802.     %mandef(5)={$1,7,$2C,%down,-1}    //レバーＡ
  7803.     %mandef(6)={$1,7,$2C,%down,-1}    //レバーＡ
  7804.     %mandef(7)={$1,6,$88,%down,-1}    //ドア
  7805.     %mandef(8)={$1,6,$88,%down,-1}    //ドア
  7806.     %mandef(9)={$1,6,$88,%down,-1}    //ドア
  7807.     &if(宝33==0){
  7808.         %mandef(10)={$E,1,$CA,%down,-1}    //宝箱（閉）
  7809.     }&else{
  7810.         %mandef(10)={$E,1,$CB,%down,-1}    //宝箱（開）
  7811.     }
  7812.     %mandef(11)={$2,7,$E8,%down,0}    //泉
  7813.     &if(宝34==0){
  7814.         %mandef(12)={$E,1,$CA,%down,-1}    //宝箱（閉）
  7815.     }&else{
  7816.         %mandef(12)={$E,1,$CB,%down,-1}    //宝箱（開）
  7817.     }
  7818.     %mandef(13)={$E,1,$CB,%down,-1}    //宝箱（開）
  7819.     %mandef(14)={$E,1,$CB,%down,-1}    //宝箱（開）
  7820.     %mandef(15)={$E,1,$CB,%down,-1}    //宝箱（開）
  7821.     %mandef(16)={$E,1,$CB,%down,-1}    //宝箱（開）
  7822.     %mandef(17)={$3,1,$C5,%down,-1}    //立て札
  7823.     &switch(レバー){
  7824.         &case 1:
  7825.             %manpoint(1)={100,100}
  7826.             &break
  7827.         &case 2:
  7828.             %manpoint(2)={100,100}
  7829.             &break
  7830.         &case 3:
  7831.             %manpoint(3)={100,100}
  7832.             &break
  7833.     }
  7834.     &if(会話盗==1 and Ａ<190){
  7835.         %mandef(18)={$D,5,$E0,%down,3}    //盗賊
  7836.     }
  7837.     &if(会話ラ==1 and Ａ<190){
  7838.         %mandef(19)={$B,1,$40,%down,3}    //ラズ
  7839.         %mandef(20)={$B,1,$60,%down,3}    //ストロ
  7840.         %mandef(21)={$B,1,$80,%down,3}    //グーズ
  7841.     }
  7842.     &if(会話セ==2 and Ａ<190){
  7843.         %mandef(22)={$E,7,$40,%down,3}    //セイロン
  7844.         %mandef(23)={$F,7,$60,%down,4}    //ガーベッジ
  7845.     }
  7846.     &monsprint 84,100,Ｂ０３
  7847.     &on
  7848.     &wait 15
  7849.     &monsprint 84,100,Ｂ１３
  7850.     &wait 10
  7851.     &monsprint 84,100,Ｂ００
  7852.  
  7853. #1    !o1o1s0開かない。qc
  7854. #2    &link 1
  7855. #3    &link 1
  7856. #4    %mandef(4)={$1,7,$2D,%down,-1}    //レバーＢ
  7857.     &pcm 11
  7858.     &on
  7859.     &wait 20
  7860.     %mandef(4)={$1,7,$2C,%down,-1}    //レバーＡ
  7861.     &on
  7862.     &if(レバー!=2){
  7863.         &wait 15
  7864.         &pcm 5
  7865.         %manpoint(1)={38,21}
  7866.         %manpoint(2)={100,100}
  7867.         レバー=2
  7868.         &on
  7869.     }
  7870. #5    %mandef(5)={$1,7,$2D,%down,-1}    //レバーＢ
  7871.     &pcm 11
  7872.     &on
  7873.     &wait 20
  7874.     %mandef(5)={$1,7,$2C,%down,-1}    //レバーＡ
  7875.     &on
  7876.     &if(レバー!=3){
  7877.         &wait 15
  7878.         &pcm 5
  7879.         %manpoint(2)={48,21}
  7880.         %manpoint(3)={100,100}
  7881.         レバー=3
  7882.         &on
  7883.     }
  7884. #6    %mandef(6)={$1,7,$2D,%down,-1}    //レバーＢ
  7885.     &pcm 11
  7886.     &on
  7887.     &wait 20
  7888.     %mandef(6)={$1,7,$2C,%down,-1}    //レバーＡ
  7889.     &on
  7890.     &if(レバー!=1){
  7891.         &wait 15
  7892.         &pcm 5
  7893.         %manpoint(3)={58,21}
  7894.         %manpoint(1)={100,100}
  7895.         レバー=1
  7896.         &on
  7897.     }
  7898. #7    鍵=ダンジョンの鍵
  7899.     &jsr 鍵戸
  7900. #8    &link 7
  7901. #9    &link 7
  7902. #10    &if(宝33==0){
  7903.         宝=ダンジョンの鍵
  7904.         &jsr 宝箱大
  7905.         &if(宝箱フラグ==1){
  7906.             宝33=1
  7907.         }
  7908.     }&else{
  7909.         &jsr 空
  7910.     }
  7911. #11    &jsr 聖水飲む
  7912. #12    &if(宝34==0){
  7913.         鍵=ダンジョンの鍵
  7914.         宝=石の剣
  7915.         &jsr 鍵宝箱
  7916.         &if(宝箱フラグ==1){
  7917.             宝01=34
  7918.         }
  7919.     }&else{
  7920.         &jsr 空
  7921.     }
  7922. #13    &jsr 空
  7923. #14    &link 13
  7924. #15    &link 13
  7925. #16    &link 13
  7926. #17    !o1s0『ヒントその８;あやしい宝箱は入念に調べるべしじゃ』qc
  7927. #18    !o1b0s0j2盗賊:b5s20j0「はははっ、お前等も落ちてきたか。qcs0
  7928.     会話盗=2
  7929. #19    !o1b0s0j2|4:b5s20j0「石の扉は簡単には開かないようだな。qcs0
  7930.     会話ラ=2
  7931. #20    !o1b0s0j2|5:b5s21j0「部屋の中のレバーがあやしいわね。qcs0
  7932.     会話ラ=2
  7933. #21    !o1b0s0j2|6:b5s20j0「・・・・・・。qcs0
  7934.     会話ラ=2
  7935. #22    !o1b0s0j2セイロン:b5s21j0「青い宝箱は見つかりましたか？qcs0
  7936. #23    !o1b0s0j2ガーベッジ:b5s20j0「はあ、こんなダンジョン、誰が造ったんだ？qcs0
  7937.  
  7938. #@0    &if(%direc<0){
  7939.         &se 17
  7940.         &goto2 城ダＢ２,@1,%down
  7941.     }
  7942. #@1    &if(%direc<0){
  7943.         &se 18
  7944.         &goto2 城ダＢ４,@0,%down
  7945.     }
  7946. #@2    &if(%direc<0){
  7947.         I=0
  7948.         &se 17
  7949.         &goto2 城ダＢ２,@3,%down
  7950.     }
  7951. #@3    &if(%direc<0){
  7952.         &se 18
  7953.         &goto2 城ダＢ４,@2,%down
  7954.     }
  7955. #@4    &if(%direc<0){
  7956.         &se 17
  7957.         &goto2 城ダＢ２,@5,%down
  7958.     }
  7959. #@5    &if(%direc<0){
  7960.         &se 17
  7961.         &goto2 城ダＢ２,@4,%down
  7962.     }
  7963. #@7    &if(%direc<0){
  7964.         &se 18
  7965.         &goto2 城ダＢ４,@3,%down
  7966.     }
  7967. #@8    &if(%direc<0){
  7968.         &se 18
  7969.         &goto2 城ダＢ４,@4,%down
  7970.     }
  7971. #@9    &if(%direc<0){
  7972.         &jsr 落ちる
  7973.         &goto2 城ダＢ４,@5,%down
  7974.     }
  7975. #@10    &if(%direc<0){
  7976.         &jsr 落ちる
  7977.         &goto2 城ダＢ４,@6,%down
  7978.     }
  7979. #@11    &if(%direc<0){
  7980.         &jsr 落ちる
  7981.         &goto2 城ダＢ４,@7,%down
  7982.     }
  7983. #@30    &jsr 敵１
  7984.     &patternpal PAL\CG_A.PAL
  7985.     &switch(%rnd(4)){
  7986.     &case 0:
  7987.         &battle $0,35,ブルーナイト,%rnd(2)+1
  7988.         &break
  7989.     &case 1:
  7990.         &battle $0,35,パオパオ,%rnd(2)+1
  7991.         &break
  7992.     &case 2:
  7993.         &battle $0,35,オルガンくん,%rnd(3)+1
  7994.         &break
  7995.     &case 3:
  7996.         &battle $0,35,ブルーナイト,1,オルガンくん,%rnd(2)+1
  7997.         &break
  7998.     }
  7999.     &jsr 戦闘後処理
  8000.  
  8001.  
  8002.  
  8003. //-------------------------------------------------------------------
  8004. [城ダＢ４]
  8005. //-------------------------------------------------------------------
  8006.     &mappal PAL\SIRO_D45.PAL
  8007.     &map MAP\SIRO_DB4.MAP
  8008.     %partypoint={@0,%down}
  8009.     &blackcircle 1
  8010.     &if(%nowbgm!=31){
  8011.         &bgm 31
  8012.     }
  8013.  
  8014.     %mandef(1)={$1,6,$88,%down,-1}    //ドア
  8015.     %mandef(2)={$1,6,$89,%down,-1}    //石戸
  8016.     %mandef(3)={$1,6,$89,%down,-1}    //石戸
  8017.     &if(像１*像２*像３*像４){
  8018.         %manpoint(3)={100,100}
  8019.     }
  8020.     &if(像１==0){
  8021.         %mandef(4)={$4,7,$2E,%down,-1}    //像Ａ
  8022.     }&else{
  8023.         %mandef(4)={$4,7,$2F,%down,-1}    //像Ｂ
  8024.     }
  8025.     &if(像２==0){
  8026.         %mandef(5)={$4,7,$2E,%down,-1}    //像Ａ
  8027.     }&else{
  8028.         %mandef(5)={$4,7,$2F,%down,-1}    //像Ｂ
  8029.     }
  8030.     &if(像３==0){
  8031.         %mandef(6)={$4,7,$2E,%down,-1}    //像Ａ
  8032.     }&else{
  8033.         %mandef(6)={$4,7,$2F,%down,-1}    //像Ｂ
  8034.     }
  8035.     &if(像４==0){
  8036.         %mandef(7)={$4,7,$2E,%down,-1}    //像Ａ
  8037.     }&else{
  8038.         %mandef(7)={$4,7,$2F,%down,-1}    //像Ｂ
  8039.     }
  8040.     %mandef(8)={$2,7,$E8,%down,0}    //泉
  8041.     &if(宝35==0){
  8042.         %mandef(9)={$E,1,$CA,%down,-1}    //宝箱（閉）
  8043.     }&else{
  8044.         %mandef(9)={$E,1,$CB,%down,-1}    //宝箱（開）
  8045.     }
  8046.     &if(Ｂ４==2){
  8047.         %manpoint(9)={31,28}
  8048.     }&else{
  8049.         %manpoint(9)={31,30}
  8050.     }
  8051.     %mandef(10)={$1,6,$88,%down,-1}    //ドア
  8052.     &if(会話ラ==2 and Ａ<190){
  8053.         %mandef(11)={$B,1,$40,%down,0}    //ラズ
  8054.         %mandef(12)={$B,1,$60,%up,0}    //ストロ
  8055.         %mandef(13)={$B,1,$80,%up,0}    //グーズ
  8056.     }
  8057.     &if(会話メ==1 and Ａ<190){
  8058.         %mandef(14)={$B,6,$20,%down,3}    //メラン
  8059.     }
  8060.     &if(会話セ==1 and Ａ<190){
  8061.         %mandef(15)={$E,7,$40,%right,3}    //セイロン
  8062.         %mandef(16)={$F,7,$60,%up,4}    //ガーベッジ
  8063.     }
  8064.     &if(会話盗==2 and Ａ<190){
  8065.         %mandef(17)={$D,5,$E0,%down,3}    //盗賊
  8066.     }
  8067.     &if(Ａ==190){
  8068.         %mandef(18)={$D,5,$E0,%down,0}    //盗賊
  8069.         %mandef(19)={$E,7,$40,%down,0}    //セイロン
  8070.         %mandef(20)={$F,7,$60,%down,0}    //ガーベッジ
  8071.         %manpoint(2)={100,100}
  8072.     }
  8073.     &monsprint 84,100,Ｂ０４
  8074.     &on
  8075.     &wait 15
  8076.     &monsprint 84,100,Ｂ１４
  8077.     &wait 10
  8078.     &monsprint 84,100,Ｂ００
  8079.  
  8080. #1    鍵=ダンジョンの鍵
  8081.     &jsr 鍵戸
  8082. #2    &if(%direc==8){
  8083.         %manpoint(2)={100,100}
  8084.         &pcm 5
  8085.         &on
  8086.     }&else{
  8087.         !o1s0こちらからは開かないようだ。qc
  8088.     }
  8089. #3    !o1s0開かない。:扉には剣を持った騎士の絵が描かれ:ている。qc
  8090. #4    !o1s0騎士の石像がある。:
  8091.     &if(像１==0){
  8092.         !右の手には穴が開いている。
  8093.         &if(%haveitem(石の剣)==1){
  8094.             !p:石の剣を持たせてみる？
  8095.             &if(%inkeyn==0){
  8096.                 &partyitemout 石の剣
  8097.                 &pcm 11
  8098.                 %mandef(4)={$4,7,$2F,%down,-1}    //像Ｂ
  8099.                 &on
  8100.                 像１=1
  8101.                 !:s0石の剣を石像に持たせた。
  8102.                 &jsr 石戸
  8103.             }
  8104.         }&else{
  8105.             !qc
  8106.         }
  8107.     }&else{
  8108.         !石の剣は石像から抜けないようだ。qc
  8109.     }
  8110. #5    !o1s0騎士の石像がある。:
  8111.     &if(像２==0){
  8112.         !右の手には穴が開いている。
  8113.         &if(%haveitem(石の剣)==1){
  8114.             !p:石の剣を持たせてみる？
  8115.             &if(%inkeyn==0){
  8116.                 &partyitemout 石の剣
  8117.                 &pcm 11
  8118.                 %mandef(5)={$4,7,$2F,%down,-1}    //像Ｂ
  8119.                 &on
  8120.                 像２=1
  8121.                 !:s0石の剣を石像に持たせた。
  8122.                 &jsr 石戸
  8123.             }
  8124.         }&else{
  8125.             !qc
  8126.         }
  8127.     }&else{
  8128.         !石の剣は石像から抜けないようだ。qc
  8129.     }
  8130. #6    !o1s0騎士の石像がある。:
  8131.     &if(像３==0){
  8132.         !右の手には穴が開いている。
  8133.         &if(%haveitem(石の剣)==1){
  8134.             !p:石の剣を持たせてみる？
  8135.             &if(%inkeyn==0){
  8136.                 &partyitemout 石の剣
  8137.                 &pcm 11
  8138.                 %mandef(6)={$4,7,$2F,%down,-1}    //像Ｂ
  8139.                 &on
  8140.                 像３=1
  8141.                 !:s0石の剣を石像に持たせた。
  8142.                 &jsr 石戸
  8143.             }
  8144.         }&else{
  8145.             !qc
  8146.         }
  8147.     }&else{
  8148.         !石の剣は石像から抜けないようだ。qc
  8149.     }
  8150. #7    !o1s0騎士の石像がある。:
  8151.     &if(像４==0){
  8152.         !右の手には穴が開いている。
  8153.         &if(%haveitem(石の剣)==1){
  8154.             !p:石の剣を持たせてみる？
  8155.             &if(%inkeyn==0){
  8156.                 &partyitemout 石の剣
  8157.                 &pcm 11
  8158.                 %mandef(7)={$4,7,$2F,%down,-1}    //像Ｂ
  8159.                 &on
  8160.                 像４=1
  8161.                 !:s0石の剣を石像に持たせた。
  8162.                 &jsr 石戸
  8163.             }
  8164.         }&else{
  8165.             !qc
  8166.         }
  8167.     }&else{
  8168.         !石の剣は石像から抜けないようだ。qc
  8169.     }
  8170. #8    &jsr 聖水飲む
  8171. #9    &if(宝35==0){
  8172.         宝=0
  8173.         &jsr 宝箱大
  8174.         &if(宝箱フラグ==1){
  8175.             宝35=1
  8176.         }
  8177.     }&else{
  8178.         !o1s0空っぽだ。
  8179.         &if(Ｂ４==1){
  8180.             !p:ん！？宝箱の下から風を感じる！:宝箱を動かしてみる？
  8181.             &if(%inkeyn==0){
  8182.                 !c
  8183.                 &pcm 5
  8184.                 &wait 10
  8185.                 %manpoint(9)={31,29}
  8186.                 &on
  8187.                 &wait 7
  8188.                 %manpoint(9)={31,28}
  8189.                 &on
  8190.                 Ｂ４=2
  8191.                 &&
  8192.             }
  8193.         }
  8194.         &if(Ｂ４==0){
  8195.             Ｂ４=1
  8196.         !qc
  8197.         }
  8198.     }
  8199. #10    鍵=ダンジョンの鍵
  8200.     &jsr 鍵戸
  8201. #11    !o1b0s0j2|4:b5s20j0「青い宝箱は最下層にあるんだったよな。
  8202.     &manmove 11,-2
  8203.     !qcs0
  8204. #12    !o1b0s0j2|5:b5s21j0「ふう。p;なかなか、攻略しがいのあるダンジョンよね。
  8205.     &manmove 12,-8
  8206.     !qcs0
  8207. #13    !o1b0s0j2|6:b5s20j0「・・・・・・。
  8208.     &manmove 13,-8
  8209.     !qcs0
  8210. #14    !o1b0s0j2メラン:b5s21j0「ここからは、階段を昇るしかないみたいね。qcs0
  8211.     会話メ=2
  8212. #15    !o1b0s0j2セイロン:b5s21j0「ここの騎士の像は何か意味がありそうですね。qcs0
  8213.     会話セ=2
  8214. #16    !o1b0s0j2ガーベッジ:b5s20j0「う～む。p;像をぶっ壊してみるってのはどうだ？qcs0
  8215.     会話セ=2
  8216. #17    !o1b0s0j2盗賊:b5s20j0「ちくしょう、下の階への階段が見つからねえ。qcs0
  8217. #18    !o1b0s0j2盗賊:b5s20j0「お、おい、今のは何だったんだ！？qcs0
  8218. #19    !o1b0s0j2セイロン:b5s21j0「か、階段を昇って行きました！qcs0
  8219. #20    !o1b0s0j2ガーベッジ:b5s20j0「う、浮いてたぞ。qcs0
  8220.  
  8221. #@0    &if(%direc<0){
  8222.         &se 17
  8223.         &goto2 城ダＢ３,@1,%down
  8224.     }
  8225. #@1    &if(%direc<0){
  8226.         &se 18
  8227.         &goto2 城ダＢ５,@0,%down
  8228.     }
  8229. #@2    &if(%direc<0){
  8230.         &se 17
  8231.         &goto2 城ダＢ３,@3,%down
  8232.     }
  8233. #@3    &if(%direc<0){
  8234.         &se 17
  8235.         &goto2 城ダＢ３,@7,%down
  8236.     }
  8237. #@4    &if(%direc<0){
  8238.         &se 17
  8239.         &goto2 城ダＢ３,@8,%down
  8240.     }
  8241. #@30    &jsr 敵１
  8242.     &patternpal PAL\CG_A.PAL
  8243.     &switch(%rnd(4)){
  8244.     &case 0:
  8245.         &battle $0,35,ブルーナイト,%rnd(4)+1
  8246.         &break
  8247.     &case 1:
  8248.         &battle $0,35,パオパオ,%rnd(3)+1
  8249.         &break
  8250.     &case 2:
  8251.         &battle $0,35,コプロー,%rnd(5)+1
  8252.         &break
  8253.     &case 3:
  8254.         &battle $0,35,ブルーナイト,%rnd(3)+1,パオパオ,%rnd(2)+1
  8255.         &break
  8256.     }
  8257.     &jsr 戦闘後処理
  8258.  
  8259.  
  8260. //-------------------------------------------------------------------
  8261. [城ダＢ５]
  8262. //-------------------------------------------------------------------
  8263.     &map MAP\SIRO_DB5.MAP
  8264.     %partypoint={@0,%down}
  8265.     &blackcircle 1
  8266.     &bgm 27
  8267.  
  8268.     %mandef(1)={$3,1,$CA,%down,-1}    //最後の宝
  8269.     %mandef(2)={$2,7,$E8,%down,0}    //泉
  8270.     %mandef(3)={$B,1,$40,%right,0}    //ラズ
  8271.     %mandef(4)={$B,1,$60,%left,0}    //ストロ
  8272.     %mandef(5)={$B,1,$80,%left,0}    //グーズ
  8273.     &if(Ａ>=190){
  8274.         %manpoint(1)={100,100}
  8275.     }
  8276.     &if(Ａ==190){
  8277.         %manpoint(3)={29,26}
  8278.         %manpoint(4)={33,26}
  8279.         %manpoint(5)={33,28}
  8280.     }&else{
  8281.         %manpoint(3)={100,100}
  8282.         %manpoint(4)={100,100}
  8283.         %manpoint(5)={100,100}
  8284.     }
  8285.     &monsprint 84,100,Ｂ０５
  8286.     &on
  8287.     &wait 15
  8288.     &monsprint 84,100,Ｂ１５
  8289.     &wait 10
  8290.     &monsprint 84,100,Ｂ００
  8291.  
  8292. #1
  8293. #2    &jsr 聖水飲む
  8294. #3    !o1b0s0j2|4:b5s20j0「青い宝箱が・・・。qcs0
  8295. #4    !o1b0s0j2|5:b5s21j0「ひとりでに動いて・・・。qcs0
  8296. #5    !o1b0s0j2|6:b5s20j0「・・・・・・。qcs0
  8297.  
  8298. #@0    &if(%direc<0){
  8299.         &se 17
  8300.         &goto2 城ダＢ４,@1,%down
  8301.     }
  8302. #@1    &if(%direc<0){
  8303.         &patternpal PAL\CG_A.PAL
  8304.         &battle $0,35,赤バンペイ,1
  8305.         &jsr 戦闘後処理
  8306.     }
  8307. #@2    &if(%direc<0){
  8308.         &patternpal PAL\CG_A.PAL
  8309.         &battle $0,35,青バンペイ,2
  8310.         &jsr 戦闘後処理
  8311.     }
  8312. #@3    &if(%direc<0){
  8313.         &patternpal PAL\CG_A.PAL
  8314.         &battle $0,35,赤バンペイ,2
  8315.         &jsr 戦闘後処理
  8316.     }
  8317. #@4    &if(%direc<0){
  8318.         &patternpal PAL\CG_A.PAL
  8319.         &battle $0,35,青バンペイ,2
  8320.         &jsr 戦闘後処理
  8321.     }
  8322. #@5    &if(%direc<0){
  8323.         &patternpal PAL\CG_A.PAL
  8324.         &battle $0,35,赤バンペイ,3
  8325.         &jsr 戦闘後処理
  8326.     }
  8327. #@6    &if(%direc<0){
  8328.         &patternpal PAL\CG_A.PAL
  8329.         &battle $0,35,青バンペイ,3
  8330.         &jsr 戦闘後処理
  8331.     }
  8332. #@7    &if(%direc<0){
  8333.         &patternpal PAL\CG_A.PAL
  8334.         &battle $0,35,赤バンペイ,3
  8335.         &jsr 戦闘後処理
  8336.     }
  8337. #@8    &if(%direc<0){
  8338.         &patternpal PAL\CG_A.PAL
  8339.         &battle $0,35,赤バンペイ,2,青バンペイ,1
  8340.         &jsr 戦闘後処理
  8341.     }
  8342. #@9    &if(%direc<0){
  8343.         &patternpal PAL\CG_A.PAL
  8344.         &battle $0,35,青バンペイ,2,赤バンペイ,1
  8345.         &jsr 戦闘後処理
  8346.     }
  8347. #@10    &if(%direc<0){
  8348.         &patternpal PAL\CG_A.PAL
  8349.         &battle $0,35,赤バンペイ,1,青バンペイ,2
  8350.         &jsr 戦闘後処理
  8351.     }
  8352. #@11    &if(%direc<0){
  8353.         &patternpal PAL\CG_A.PAL
  8354.         &battle $0,35,青バンペイ,2,赤バンペイ,2
  8355.         &jsr 戦闘後処理
  8356.     }
  8357. #@12    &if(%direc<0){
  8358.         &patternpal PAL\CG_A.PAL
  8359.         &battle $0,35,赤バンペイ,3,青バンペイ,3
  8360.         &jsr 戦闘後処理
  8361.         &if(Ａ<190){
  8362.             %mandef(1)={$3,1,$24,%down,0}    //最後の宝（浮遊）
  8363.             &on
  8364.             !o1b0s0j2|2:b5s20j0「なんだ！pc
  8365.             &manmove 1,2,2,2,2,2,2
  8366.             !o1b0s0j2|2:b5s20j0「うわっ、宝箱が！pc
  8367.             &partyspeed 1
  8368.             &partymove 2,2,4,4,4,4,4,6,6,6
  8369.             %mandef(1)={$3,1,$24,%down,1}    //最後の宝（浮遊）
  8370.             &on
  8371.             &manmove 1,2,2,2,2,2,2,2,2,2,2,2,2,2
  8372.             %mandef(1)={$3,1,$24,%down,0}    //最後の宝（浮遊）
  8373.             &on
  8374.             &partymove 6,6,-8,-6,-2
  8375.             &partyspeed 2
  8376.             %mandef(1)={$3,1,$24,%down,1}    //最後の宝（浮遊）
  8377.             &on
  8378.             &manmove 1,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
  8379.             %manpoint(1)={100,100}
  8380.             %manpoint(3)={29,26}
  8381.             %manpoint(4)={33,26}
  8382.             %manpoint(5)={33,28}
  8383.             Ａ=190
  8384.             &on
  8385.             !o1b0s0j2|2:b5s20j0「お、w追うぞ。qcs0
  8386.         }
  8387.     }
  8388.  
  8389.  
  8390. //-------------------------------------------------------------------
  8391. [滝]
  8392. //-------------------------------------------------------------------
  8393.     &mapsp SPP\TAKI.SPP
  8394.     &mappal PAL\TAKI.PAL
  8395.     &map MAP\TAKI.MAP
  8396.     &jsr 大
  8397.     %partypoint={@1,-%up}
  8398.     &bgm 9
  8399.  
  8400.     %mandef(9)={$F,1,$C1,%down,-1}    //ドア（開）
  8401.     %mandef(10)={$F,0,$00,%down,0}    //水晶
  8402.     %manpoint(9)={100,100}
  8403.     &if(水晶==0){
  8404.         %manpoint(10)={100,100}
  8405.     }
  8406.     &jsr ワープ３
  8407.     &on
  8408.  
  8409.     &jsr ワープ４
  8410.  
  8411. #10    &if(%haveitem(オールトの指輪)==1){
  8412.         &jsr 水晶飛
  8413.     }
  8414.  
  8415. #@0    &if(%direc<0){
  8416.         &se 13
  8417.         &goto2 フィールド,@5,%down
  8418.     }
  8419. #@2    &if(%direc<0){
  8420.         I=100
  8421.         &se 13
  8422.         &goto2 滝＿中,@7,%up
  8423.     }
  8424. #@3    &if(%direc<0){
  8425.         &se 13
  8426.         &goto2 フィールド,@6,%down
  8427.     }
  8428. #@5    &if(%direc<0){
  8429.         I=100
  8430.         &se 13
  8431.         &goto2 滝＿中,@8,%up
  8432.     }
  8433. #@6    &if(%direc<0){
  8434.         %manpoint(9)={49,21}
  8435.         &on
  8436.         &pcm 1
  8437.         &goto 小屋
  8438.     }
  8439.  
  8440.  
  8441. //-------------------------------------------------------------------
  8442. [小屋]
  8443. //-------------------------------------------------------------------
  8444.     &mapsp SPP\MATI_I.SPP
  8445.     &mappal PAL\MATI_I.PAL
  8446.     %partypoint={@11,%up}
  8447.     &partyspeed 1
  8448.     &bgm 10
  8449.  
  8450.     %mandef(6)={$D,4,$00,%down,0}    //町男２
  8451.     &on
  8452.  
  8453. #6    &if(%haveitem(滝の鍵)==1){
  8454.         !o1s20「滝を越えるとモンスターが強くなるぞ。気をつけな。qcs0
  8455.     }&else{
  8456.         !o1s20「滝の洞窟は通行禁止になってるぞ。;
  8457.         !どうしても通りたかったら王様か大臣の許可を貰って来な。
  8458.         &if(%haveitem(通行許可証)==1){
  8459.             !p;なんだ、通行許可証を持ってるじゃないか。ほら、鍵と交換だ。p:
  8460.             &partyitemout 通行許可証
  8461.             &partyitemin 滝の鍵
  8462.             !o1s0j2i(通行許可証)j0を渡した！:
  8463.             !j2i(滝の鍵)j0を手に入れた！p
  8464.             !o1s20「洞窟の中のピカピカ光ってるのには触らない方がいいぞ。危ないからな。
  8465.         }
  8466.         !qcs0
  8467.     }
  8468.     &manmove 6,-2
  8469.  
  8470. #@11    &if(%direc<0){
  8471.         &se 13
  8472.         &goto2 滝,@6,%down
  8473.     }
  8474.  
  8475.  
  8476. //-------------------------------------------------------------------
  8477. [滝＿中]
  8478. //-------------------------------------------------------------------
  8479.     &mapsp SPP\DOUKUTU.SPP
  8480.     &mappal PAL\DOUKUTU.PAL
  8481.     &map MAP\TAKI.MAP
  8482.     %partypoint={@1,%up}
  8483.     &bgm 10
  8484.     &if(I==100){
  8485.         %bcirclesize=16
  8486.     }
  8487.     &blackcircle 1
  8488.  
  8489.     %mandef(1)={$4,0,$A0,%down,0}    //ピカピカ
  8490.     %mandef(2)={$4,0,$A0,%down,0}    //ピカピカ
  8491.     &if(宝17==0){
  8492.         %mandef(3)={$E,1,$CA,%down,-1}    //宝箱（閉）
  8493.     }&else{
  8494.         %mandef(3)={$E,1,$CB,%down,-1}    //宝箱（開）
  8495.     }
  8496.     %mandef(4)={$7,1,$C3,%down,-1}    //ドア
  8497.     %mandef(5)={$7,1,$C3,%down,-1}    //ドア
  8498.     %mandef(6)={$C,7,$20,%down,0}    //ネビュラ
  8499.     %mandef(7)={$2,6,$81,%down,-1}    //壁
  8500.     &if(図鑑完成==1){
  8501.         %manpoint(7)={100,100}
  8502.     }
  8503.     &if(星雲==1){
  8504.         %manpoint(1)={100,100}
  8505.         %manpoint(2)={100,100}
  8506.         %manpoint(6)={12,71}
  8507.     }&else{
  8508.         %manpoint(6)={100,100}
  8509.     }
  8510.     &on
  8511.     &if(Ｂ==0 and Ａ>20){
  8512.         Ｂ=10
  8513.         !o1b0s0j2|2:b5s20j0「真っ暗じゃないか。ライトをつけるぞ。qcs0
  8514.         &wait 15
  8515.     }
  8516.     &if(I==100 and Ｂ>=10){
  8517.         &jsr ライト
  8518.     }
  8519.  
  8520. #1    &pcm 4
  8521.     &freash 65473
  8522.     &freash 63509
  8523. #2    &link 1
  8524. #3    &if(宝17==0){
  8525.         宝=古びた図鑑
  8526.         &jsr 宝箱大
  8527.         &if(宝箱フラグ==1){
  8528.             宝17=1
  8529.         }
  8530.     }&else{
  8531.         &jsr 空
  8532.     }
  8533. #4    鍵=滝の鍵
  8534.     &jsr 鍵戸
  8535. #5    &link 4
  8536. #6    !o1s0ネビュラソードを取る？
  8537.     &if(%inkeyn==0){
  8538.         !c
  8539.         &if(%rasthaveitem>0){
  8540.             &pcm 17
  8541.             星雲=0
  8542.             &partyitemin ネビュラソード
  8543.             %manpoint(6)={100,100}
  8544.             &on
  8545.             !o1j2i(ネビュラソード)j0を手に入れた！pc
  8546.             %manpoint(1)={15,68-32}
  8547.             %manpoint(2)={17,68-32}
  8548.             &on
  8549.         }&else{
  8550.             &pcm 18
  8551.             !o1b2s0j1これ以上持てません！j0qcb5
  8552.         }
  8553.     }
  8554. #7
  8555.  
  8556. #@7    &if(%direc<0){
  8557.         &se 13
  8558.         &goto2 滝,@2,%down
  8559.     }
  8560. #@8    &if(%direc<0){
  8561.         &se 13
  8562.         &goto2 滝,@5,%down
  8563.     }
  8564. #@9    &if(%direc>=0){
  8565.         !o1s0『星雲の鍵を示せ』
  8566.         &if(%haveitem(ネビュラソード)==1){
  8567.             !p:ネビュラソードを使う？
  8568.             &if(%inkeyn==0){
  8569.                 !c
  8570.                 &pcm 17
  8571.                 星雲=1
  8572.                 &partyitemout ネビュラソード
  8573.                 %manpoint(6)={12,71-32}
  8574.                 &on
  8575.                 !o1ネビュラソードを突き刺した！
  8576.                 %manpoint(1)={100,100}
  8577.                 %manpoint(2)={100,100}
  8578.                 &on
  8579.                 &if(ネビュラ==0){
  8580.                     !p
  8581.                     !o1b0s0j2|4:b5s20j0「なるほど。星雲の鍵とは、この剣だった訳か。
  8582.                     ネビュラ=1
  8583.                 }
  8584.                 !qcs0
  8585.             }
  8586.         }&else{
  8587.             !qc
  8588.         }
  8589.     }
  8590. #@14    &if(%direc<0){
  8591.         &jsr 落ちる
  8592.         &bgm -1
  8593.         &goto2 滝ダＢ１,@0,%down
  8594.     }
  8595.  
  8596.  
  8597. //-------------------------------------------------------------------
  8598. [遺跡２]    //いってらっさい
  8599. //-------------------------------------------------------------------
  8600.     &mapsp SPP\FIELD.SPP
  8601.     &mappal PAL\FIELD.PAL
  8602.     &map MAP\FIELD.MAP
  8603.     %partypoint={@19,%down}
  8604.  
  8605.     &monsprint 124,0,光_C5
  8606.     &on
  8607.  
  8608.     &jsr 光２
  8609.     &jsr 光２
  8610.     &jsr 光２
  8611.     &contrast 0
  8612.     &jsr 光２
  8613.     &jsr 光２
  8614.     &jsr 光２
  8615.     &jsr 光２
  8616.     &bgm -1
  8617.     &jsr 光２
  8618.     &jsr 光２
  8619.     &monsprint 124,0,光消し
  8620.     &goto 衛星
  8621.  
  8622.  
  8623. //-------------------------------------------------------------------
  8624. [遺跡１]    //おいでやす
  8625. //-------------------------------------------------------------------
  8626.     &mapsp SPP\FIELD.SPP
  8627.     &mappal PAL\FIELD.PAL
  8628.     &map MAP\FIELD.MAP
  8629.     &jsr 順番
  8630.     &partyset 0
  8631.     &partyspeed 1
  8632.     %partypoint={63,85,%down}
  8633.     &bgm 28
  8634.  
  8635.     &on
  8636.  
  8637.     &on
  8638.     &partymove 6,6,6,6,6,6,6,6,6,6,6
  8639.     &wait 50
  8640.     &partyspeed 2
  8641.     &goto2 遺跡１Ｆ,@0,%down
  8642.  
  8643.  
  8644. //-------------------------------------------------------------------
  8645. [洞窟１]    //大木へ
  8646. //-------------------------------------------------------------------
  8647.     &mapsp SPP\DOUKUTU.SPP
  8648.     &mappal PAL\DOUKUTU.PAL
  8649.     &map MAP\DOUKUTU1.MAP
  8650.     &jsr 大
  8651.     %partypoint={@2,-%up}
  8652.     &blackcircle 1
  8653.     &if(I==100){
  8654.         %bcirclesize=16
  8655.         &bgm 33
  8656.     }
  8657.  
  8658.     &if(宝07==0){
  8659.         %mandef(1)={$D,1,$CE,%down,-1}    //小箱（閉）
  8660.     }&else{
  8661.         %mandef(1)={$D,1,$CF,%down,-1}    //小箱（開）
  8662.     }
  8663.     &if(宝08==0){
  8664.         %mandef(2)={$D,1,$CE,%down,-1}    //小箱（閉）
  8665.     }&else{
  8666.         %mandef(2)={$D,1,$CF,%down,-1}    //小箱（開）
  8667.     }
  8668.     &if(宝09==0){
  8669.         %mandef(3)={$E,1,$CA,%down,-1}    //宝箱（閉）
  8670.     }&else{
  8671.         %mandef(3)={$E,1,$CB,%down,-1}    //宝箱（開）
  8672.     }
  8673.     &if(宝10==0){
  8674.         %mandef(4)={$E,1,$CA,%down,-1}    //宝箱（閉）
  8675.     }&else{
  8676.         %mandef(4)={$E,1,$CB,%down,-1}    //宝箱（開）
  8677.     }
  8678.     &if(宝11==0){
  8679.         %mandef(5)={$E,1,$CA,%down,-1}    //宝箱（閉）
  8680.     }&else{
  8681.         %mandef(5)={$E,1,$CB,%down,-1}    //宝箱（開）
  8682.     }
  8683.     &if(宝10==0){
  8684.         %mandef(6)={$F,7,$A0,%up,0}    //モンスター
  8685.     }
  8686.     &on
  8687.     &if(Ｂ==0 and Ａ>20){
  8688.         Ｂ=10
  8689.         !o1b0s0j2|2:b5s20j0「真っ暗じゃないか。ライトをつけるぞ。qcs0
  8690.         &wait 15
  8691.     }
  8692.     &if(I==100 and Ｂ>=10){
  8693.         &jsr ライト
  8694.     }
  8695.  
  8696. #1    &if(宝07==0){
  8697.         宝=ガラスのかけら
  8698.         &jsr 宝箱小
  8699.         &if(宝箱フラグ==1){
  8700.             宝07=1
  8701.         }
  8702.     }&else{
  8703.         &jsr 空
  8704.     }
  8705. #2    &if(宝08==0){
  8706.         宝=くじゃく石
  8707.         &jsr 宝箱小
  8708.         &if(宝箱フラグ==1){
  8709.             宝08=1
  8710.         }
  8711.     }&else{
  8712.         &jsr 空
  8713.     }
  8714. #3    &if(宝09==0){
  8715.         宝=緑宝石
  8716.         &jsr 宝箱大
  8717.         &if(宝箱フラグ==1){
  8718.             宝09=1
  8719.         }
  8720.     }&else{
  8721.         &jsr 空
  8722.     }
  8723. #4    &if(宝10==0){
  8724.         鍵=王様の鍵
  8725.         宝=黒い鍵玉
  8726.         &jsr 鍵宝箱
  8727.         &if(宝箱フラグ==1){
  8728.             宝10=1
  8729.         }
  8730.     }&else{
  8731.         &jsr 空
  8732.     }
  8733. #5    &if(宝11==0){
  8734.         鍵=滝の鍵
  8735.         宝=夢のかけら
  8736.         &jsr 鍵宝箱
  8737.         &if(宝箱フラグ==1){
  8738.             宝11=1
  8739.         }
  8740.     }&else{
  8741.         &jsr 空
  8742.     }
  8743. #6    !o1b0s0j2？？？:b5s22j0「ガオッ、ガオ～～！！pcs0
  8744.     &patternpal PAL\CG_C.PAL
  8745.     &battle $0,35,ストンゴーレム,1
  8746.     &jsr 戦闘後処理
  8747.     &if(%exitcode==0){
  8748.         %manpoint(6)={100,100}
  8749.         &on
  8750.         &wait 14
  8751.         %manpoint(6)={9,39}
  8752.         &on
  8753.         &wait 10
  8754.         %manpoint(6)={100,100}
  8755.         &on
  8756.         &wait 7
  8757.         %manpoint(6)={9,39}
  8758.         &on
  8759.         &wait 5
  8760.         %manpoint(6)={100,100}
  8761.         &on
  8762.     }
  8763.  
  8764. #@0    &if(%direc<0){
  8765.         &se 13
  8766.         &goto2 フィールド,@3,%down
  8767.     }
  8768. #@1    &if(%direc<0){
  8769.         &se 13
  8770.         &goto2 フィールド,@4,%down
  8771.     }
  8772. #@4    &if(%direc<0){
  8773.         &se 17
  8774.         &move @7,%down
  8775.     }
  8776. #@6    &if(%direc<0){
  8777.         &se 18
  8778.         &move @5,%down
  8779.     }
  8780. #@8    &if(%direc<0){
  8781.         &se 17
  8782.         &move @11,%down
  8783.     }
  8784. #@10    &if(%direc<0){
  8785.         &se 18
  8786.         &move @9,%down
  8787.     }
  8788. #@12    &if(%direc<0){
  8789.         &se 17
  8790.         &move @17,%down
  8791.     }
  8792. #@14    &if(%direc<0){
  8793.         &se 17
  8794.         &move @19,%down
  8795.     }
  8796. #@16    &if(%direc<0){
  8797.         &se 18
  8798.         &move @13,%down
  8799.     }
  8800. #@18    &if(%direc<0){
  8801.         &se 18
  8802.         &move @15,%down
  8803.     }
  8804. #@20    &if(%direc<0){
  8805.         &jsr 落ちる
  8806.         &move @21,%down
  8807.     }
  8808. #@22    &if(%direc<0){
  8809.         &jsr 落ちる
  8810.         &move @23,%down
  8811.     }
  8812. #@25    &if(%direc<0){
  8813.         &jsr 落ちる
  8814.         &move @26,%down
  8815.     }
  8816. #@40    &jsr 敵１
  8817.     &patternpal PAL\CG_B.PAL
  8818.     &switch(%rnd(4)){
  8819.     &case 0:
  8820.         &battle $0,35,カビキラ,%rnd(4)+1
  8821.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ15==0){
  8822.             モ15=1
  8823.         }
  8824.         &break
  8825.     &case 1:
  8826.         &battle $0,35,オタフク,%rnd(2)+1
  8827.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ16==0){
  8828.             モ16=1
  8829.         }
  8830.         &break
  8831.     &case 2:
  8832.         &battle $0,35,吸血コウモリ,%rnd(3)+1
  8833.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ17==0){
  8834.             モ17=1
  8835.         }
  8836.         &break
  8837.     &case 3:
  8838.         &battle $0,35,アナノモグラ,%rnd(3)+1
  8839.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ18==0){
  8840.             モ18=1
  8841.         }
  8842.         &break
  8843.     }
  8844.     &jsr 戦闘後処理
  8845. #@41    &jsr 敵１
  8846.     &patternpal PAL\CG_B.PAL
  8847.     &switch(%rnd(4)){
  8848.     &case 0:
  8849.         &battle $0,35,ゾンビ,%rnd(2)+1
  8850.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ19==0){
  8851.             モ19=1
  8852.         }
  8853.         &break
  8854.     &case 1:
  8855.         &battle $0,35,人喰いグモ,1
  8856.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ20==0){
  8857.             モ20=1
  8858.         }
  8859.         &break
  8860.     &case 2:
  8861.         &battle $0,35,オタフク,%rnd(2)+1
  8862.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ16==0){
  8863.             モ16=1
  8864.         }
  8865.         &break
  8866.     &case 3:
  8867.         &battle $0,35,カビキラ,%rnd(4)+1
  8868.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ15==0){
  8869.             モ15=1
  8870.         }
  8871.         &break
  8872.     }
  8873.     &jsr 戦闘後処理
  8874.  
  8875.  
  8876. //-------------------------------------------------------------------
  8877. [洞窟２]    //砂漠へ
  8878. //-------------------------------------------------------------------
  8879.     &mapsp SPP\DOUKUTU.SPP
  8880.     &mappal PAL\DOUKUTU.PAL
  8881.     &map MAP\DOUKUTU2.MAP
  8882.     &jsr 大
  8883.     %partypoint={@2,-%left}
  8884.     %bcirclesize=16
  8885.     &blackcircle 1
  8886.     &ldef II=0
  8887.     &bgm 19
  8888.  
  8889.     %mandef(1)={$F,4,$C0,%down,0}    //商人男
  8890.     &if(Ａ>=275 and Ａ<290){    //黒い鍵玉を取った？
  8891.         %manpoint(1)={100,100}
  8892.     }
  8893.     &if(ビン==0){
  8894.         %mandef(2)={$D,5,$40,%up,3}    //村男
  8895.     }
  8896.     &if(宝12==0){
  8897.         %mandef(3)={$E,1,$CA,%down,-1}    //宝箱（閉）
  8898.     }&else{
  8899.         %mandef(3)={$E,1,$CB,%down,-1}    //宝箱（開）
  8900.     }
  8901.     &if(宝13==0){
  8902.         %mandef(4)={$D,1,$CE,%down,-1}    //小箱（閉）
  8903.     }&else{
  8904.         %mandef(4)={$D,1,$CF,%down,-1}    //小箱（開）
  8905.     }
  8906.     %mandef(5)={$E,1,$CA,%down,-1}    //宝箱（閉）
  8907.     &on
  8908.     &jsr ライト
  8909.  
  8910. #1    &if(Ａ==275){
  8911.         !o1s20「気を付けて行けよ。砂漠のモンスターは凶暴だぜ。qcs0
  8912.         &&
  8913.     }
  8914.     &if(II==10){
  8915.         !o1s20「この抜け道、オレもこの前まで知らなかったんだ。pcs0
  8916.         %mandef(1)={$F,4,$C0,%up,1}    //商人男
  8917.         &on
  8918.         &manmove 1,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  8919.         %mandef(1)={$F,4,$C0,%right,0}    //商人男
  8920.         %manpoint(1)={57,9}
  8921.         &on
  8922.         !o1s20「お～い。こっちだ。pcs0
  8923.         II=20
  8924.         &&
  8925.     }
  8926.     &if(II==20){
  8927.         !o1s20「砂漠なんて、何しに行くんだ？pcs0
  8928.         %mandef(1)={$F,4,$C0,%left,1}    //商人男
  8929.         &on
  8930.         &manmove 1,4,4,4,4,4,4,4,4,4,4,4,-6
  8931.         %mandef(1)={$F,4,$C0,%right,0}    //商人男
  8932.         &on
  8933.         II=30
  8934.         &&
  8935.     }
  8936.     &if(II==30){
  8937.         !o1s20「オレはこれからブルーノメタル製の商品を作ってもらいに行って来るよ。
  8938.         !だから、しばらく店は閉めるぜ。p;
  8939.         !おっと忘れるところだった。ブルーナイトを貰うぜ。p
  8940.         &partyitemout 赤紫色の石塊
  8941.         !o1s0j2(赤紫色の石塊)j0を渡した！pc
  8942.         &manmove 1,8,8,-2
  8943.         !o1s20「ここを抜ければ砂漠だ。じゃあな。qcs0
  8944.         ぶ=0
  8945.         Ａ=275
  8946.         &&
  8947.     }
  8948.     &if(%direc!=8 and II==0){
  8949.         &if(%haveitem(赤紫色の石塊)==1){
  8950.             %mandef(9)={$B,0,$AF,%down,-1}    //！
  8951.             %manpoint(9)={69,43}
  8952.             &on
  8953.             &pcm 22
  8954.             !o1s20「ちょ、ちょっとその石見せてくれないか？
  8955.             &if(%inkeyn==0){
  8956.                 %manpoint(9)={100,100}
  8957.                 &on
  8958.                 &partyitemout 赤紫色の石塊
  8959.                 !o1s0j2(赤紫色の石塊)j0を渡した！p
  8960.                 %mandef(1)={$F,4,$C0,%right,-1}    //商人男
  8961.                 %manpoint(1)={69,45}
  8962.                 &on
  8963.                 &wait 10
  8964.                 %mandef(1)={$F,4,$C0,%right,0}    //商人男
  8965.                 %manpoint(1)={69,46}
  8966.                 &on
  8967.                 !o1s20「やっぱり！これはブルーナイトじゃないか！p;
  8968.                 !この鉱石はな、製錬するとこの地上で一番固い合金、ブルーノメタルになるんだ。ほい。p
  8969.                 !o1s0j2(赤紫色の石塊)j0を手に入れた！p
  8970.                 &partyitemin 赤紫色の石塊
  8971.                 !o1s20「伝説の勇者が使ってた装備もこれで出来てたって言われてるぜ。p;
  8972.                 !なあ、それオレにくれないか？勿論、ただとは言わないぜ。砂漠に行きたいんだろ。どうだい？
  8973.                 &if(%inkeyn==0){
  8974.                     !;よし！商談成立。p;約束だ、砂漠にご案内するぜ。ついて来いよ。pc
  8975.                     %mandef(1)={$F,4,$C0,%left,1}    //商人男
  8976.                     &on
  8977.                     &manmove 1,4,4,4,4,4,4,4,4,4,4,8,8,-2
  8978.                     %mandef(1)={$F,4,$C0,%down,0}    //商人男
  8979.                     &on
  8980.                     II=10
  8981.                 }&else{
  8982.                     !;そうかぁ。お前達が持ってても意味がないと思うんだけどな。qcs0
  8983.                 }
  8984.             }&else{
  8985.                 %manpoint(9)={100,100}
  8986.                 &on
  8987.                 !;なんだよ。ちょっとくらい見せてくれてもいいだろ。qcs0
  8988.             }
  8989.             &manmove 1,-2
  8990.             &&
  8991.         }
  8992.         &if(Ａ<275){
  8993.             !o1s20「砂漠に行きたいのか？p;
  8994.             !残念だけど、この前の地震で土砂崩れがあってね。見ての通りだよ。qcs0
  8995.         }&else{
  8996.             &if(%direc==6){
  8997.                 !o1s20「よう、お帰りか？qcs0
  8998.             }&else{
  8999.                 !o1s20「砂漠に行くのか？qcs0
  9000.             }
  9001.             &manmove 1,6,6,6
  9002.             II=1
  9003.         }
  9004.     }&else{
  9005.         !o1s20「
  9006.         &if(Ａ>270 and ぶ==0){
  9007.             !よう！ブルーノメタル製の盾を仕入れて来たぜ。p;
  9008.         }
  9009.         !何を買うんだい？うちの商品はどれもこの世に一つの貴重品だ。p;
  9010.         &switch(う+ひ+き+く+ぶ){
  9011.         &case 0:
  9012.             %shoplist={うがつき丸,ひっかき丸,きりさき丸,くだき丸,ブルーノシールド}
  9013.             &jmp @f
  9014.         &case 1:
  9015.             &if(ぶ==1){
  9016.                 %shoplist={うがつき丸,ひっかき丸,きりさき丸,くだき丸}
  9017.                 &jmp @f
  9018.             }
  9019.             &if(く==1){
  9020.                 %shoplist={うがつき丸,ひっかき丸,きりさき丸,ブルーノシールド}
  9021.                 &jmp @f
  9022.             }
  9023.             &if(き==1){
  9024.                 %shoplist={うがつき丸,ひっかき丸,くだき丸,ブルーノシールド}
  9025.                 &jmp @f
  9026.             }
  9027.             &if(ひ==1){
  9028.                 %shoplist={うがつき丸,きりさき丸,くだき丸,ブルーノシールド}
  9029.                 &jmp @f
  9030.             }
  9031.             &if(う==1){
  9032.                 %shoplist={ひっかき丸,きりさき丸,くだき丸,ブルーノシールド}
  9033.                 &jmp @f
  9034.             }
  9035.         &case 2:
  9036.             &if(ぶ==1 and う==1){
  9037.                 %shoplist={ひっかき丸,きりさき丸,くだき丸}
  9038.                 &jmp @f
  9039.             }
  9040.             &if(ぶ==1 and ひ==1){
  9041.                 %shoplist={うがつき丸,きりさき丸,くだき丸}
  9042.                 &jmp @f
  9043.             }
  9044.             &if(ぶ==1 and き==1){
  9045.                 %shoplist={うがつき丸,ひっかき丸,くだき丸}
  9046.                 &jmp @f
  9047.             }
  9048.             &if(ぶ==1 and く==1){
  9049.                 %shoplist={うがつき丸,ひっかき丸,きりさき丸}
  9050.                 &jmp @f
  9051.             }
  9052.             &if(う==1 and ひ==1){
  9053.                 %shoplist={きりさき丸,くだき丸,ブルーノシールド}
  9054.                 &jmp @f
  9055.             }
  9056.             &if(う==1 and き==1){
  9057.                 %shoplist={ひっかき丸,くだき丸,ブルーノシールド}
  9058.                 &jmp @f
  9059.             }
  9060.             &if(う==1 and く==1){
  9061.                 %shoplist={ひっかき丸,きりさき丸,ブルーノシールド}
  9062.                 &jmp @f
  9063.             }
  9064.             &if(ひ==1 and き==1){
  9065.                 %shoplist={うがつき丸,くだき丸,ブルーノシールド}
  9066.                 &jmp @f
  9067.             }
  9068.             &if(ひ==1 and く==1){
  9069.                 %shoplist={うがつき丸,きりさき丸,ブルーノシールド}
  9070.                 &jmp @f
  9071.             }
  9072.             &if(き==1 and く==1){
  9073.                 %shoplist={うがつき丸,ひっかき丸,ブルーノシールド}
  9074.                 &jmp @f
  9075.             }
  9076.         &case 3:
  9077.             &if(き==0 and く==0){
  9078.                 %shoplist={きりさき丸,くだき丸}
  9079.                 &jmp @f
  9080.             }
  9081.             &if(ひ==0 and き==0){
  9082.                 %shoplist={ひっかき丸,きりさき丸}
  9083.                 &jmp @f
  9084.             }
  9085.             &if(ひ==0 and く==0){
  9086.                 %shoplist={ひっかき丸,くだき丸}
  9087.                 &jmp @f
  9088.             }
  9089.             &if(う==0 and ひ==0){
  9090.                 %shoplist={うがつき丸,ひっかき丸}
  9091.                 &jmp @f
  9092.             }
  9093.             &if(う==0 and き==0){
  9094.                 %shoplist={うがつき丸,きりさき丸}
  9095.                 &jmp @f
  9096.             }
  9097.             &if(う==0 and く==0){
  9098.                 %shoplist={うがつき丸,くだき丸}
  9099.                 &jmp @f
  9100.             }
  9101.             &if(ぶ==0 and う==0){
  9102.                 %shoplist={うがつき丸,ブルーノシールド}
  9103.                 &jmp @f
  9104.             }
  9105.             &if(ぶ==0 and ひ==0){
  9106.                 %shoplist={ひっかき丸,ブルーノシールド}
  9107.                 &jmp @f
  9108.             }
  9109.             &if(ぶ==0 and き==0){
  9110.                 %shoplist={きりさき丸,ブルーノシールド}
  9111.                 &jmp @f
  9112.             }
  9113.             &if(ぶ==0 and く==0){
  9114.                 %shoplist={くだき丸,ブルーノシールド}
  9115.                 &jmp @f
  9116.             }
  9117.         &case 4:
  9118.             &if(ぶ==0){
  9119.                 %shoplist={ブルーノシールド}
  9120.                 &jmp @f
  9121.             }
  9122.             &if(う==0){
  9123.                 %shoplist={うがつき丸}
  9124.                 &jmp @f
  9125.             }
  9126.             &if(ひ==0){
  9127.                 %shoplist={ひっかき丸}
  9128.                 &jmp @f
  9129.             }
  9130.             &if(き==0){
  9131.                 %shoplist={きりさき丸}
  9132.                 &jmp @f
  9133.             }
  9134.             &if(く==0){
  9135.                 %shoplist={くだき丸}
  9136.                 &jmp @f
  9137.             }
  9138.         &case 5:
  9139.             !おっと、全部売り切れだった。また仕入れたら買ってくれ。qcs0
  9140.             &manmove 1,-2
  9141.             &&
  9142.         }
  9143.         &label
  9144.         &se 2
  9145.         &ldef IB
  9146.         IB=%shopsel(100)
  9147.         &switch(IB){
  9148.         &default:
  9149.             &switch(IB){
  9150.             &case うがつき丸:
  9151.                 う=1
  9152.                 &break
  9153.             &case ひっかき丸:
  9154.                 ひ=1
  9155.                 &break
  9156.             &case きりさき丸:
  9157.                 き=1
  9158.                 &break
  9159.             &case くだき丸:
  9160.                 く=1
  9161.                 &break
  9162.             &case ブルーノシールド:
  9163.                 ぶ=1
  9164.                 &break
  9165.             }
  9166.             !o1s0j2i(IB)j0を買いました。p
  9167.             &break
  9168.         &case 0:
  9169.             &break
  9170.         &case -1:
  9171.             &pcm 18
  9172.             !o1b2s0j1お金が足りません！j0pb5
  9173.             &break
  9174.         &case -2:
  9175.             &pcm 18
  9176.             !o1b2s0j1これ以上持てません！j0pb5
  9177.             &break
  9178.         }
  9179.         !o1s20「また来いよ。qcs0
  9180.     }
  9181.     &manmove 1,-2
  9182. #2    &if(ビン==0){
  9183.         !o1s20「はぁ、土砂崩れで大切な物が埋まってしまった。p;はぁ～、どうしよう。
  9184.         &if(%haveitem(水が入ったビン)==1){
  9185.             !p;あーーーーー！！そ、それ！p
  9186.             !o1s0j2i(水が入ったビン)j0を渡した！p
  9187.             !o1s20「これを探してたんだ、大切な物なんだ。ありがとう、助かったよ。
  9188.             ビン=1
  9189.         }
  9190.     }&else{
  9191.         !o1s20「ありがとう、助かったよ。
  9192.     }
  9193.     !qcs0
  9194. #3    &if(宝12==0){
  9195.         %mandef(%manno)={$E,1,$CB,%down,-1}    //宝箱（開）
  9196.         &se 31
  9197.         &on
  9198.         !o1s0j2i(伝説の着ぐるみ)j0を４つ見つけた！p:
  9199.         &if(%rasthaveitem>=4){
  9200.             宝12=1
  9201.             &partyitemin 伝説の着ぐるみ
  9202.             &partyitemin 伝説の着ぐるみ
  9203.             &partyitemin 伝説の着ぐるみ
  9204.             &partyitemin 伝説の着ぐるみ
  9205.             !j2i(伝説の着ぐるみ)j0を４つ手に入れた！qc
  9206.         }&else{
  9207.             &pcm 18
  9208.             !o1b2s0j1これ以上持てません！j0qcb5
  9209.             %mandef(%manno)={$E,1,$CA,%down,-1}    //宝箱（閉）
  9210.             &on
  9211.         }
  9212.     }&else{
  9213.         &jsr 空
  9214.     }
  9215. #4    &if(宝13==0){
  9216.         宝=水が入ったビン
  9217.         &jsr 宝箱小
  9218.         &if(宝箱フラグ==1){
  9219.             宝13=1
  9220.         }
  9221.     }&else{
  9222.         &jsr 空
  9223.     }
  9224. #5    &if(Ａ>=275 and 宝10==0 and II<10){
  9225.         宝=0
  9226.         &jsr 宝箱大
  9227.     }&else{
  9228.         宝=1200
  9229.         &if(う){
  9230.             宝=宝+3100    //うがつき丸の値段分
  9231.         }
  9232.         &if(ひ){
  9233.             宝=宝+2900    //ひ丸の値段分
  9234.         }
  9235.         &if(き){
  9236.             宝=宝+3500    //き丸の値段分
  9237.         }
  9238.         &if(く){
  9239.             宝=宝+4000    //く丸の値段分
  9240.         }
  9241.         &if(ぶ){
  9242.             宝=宝+8800    //ブルーノの値段分
  9243.         }
  9244.         %mandef(5)={$E,1,$CB,%down,-1}    //宝箱（開）
  9245.         &se 31
  9246.         &on
  9247.         !o1s0j2f(宝)Ｇj0を見つけた！p
  9248.         &if(II>=10){
  9249.             &manmove 1,-6
  9250.         }&else{
  9251.             &if(%px<69 or II==1){
  9252.                 &manmove 1,-4
  9253.             }&else{
  9254.                 &manmove 1,-8
  9255.             }
  9256.         }
  9257.         !o1s20「おい、こら！店の売上金を盗むな！qcs0
  9258.         %mandef(5)={$E,1,$CA,%down,-1}    //宝箱（閉）
  9259.         &on
  9260.         &manmove 1,-2
  9261.     }
  9262.  
  9263. #@0    &if(%direc<0){
  9264.         &se 13
  9265.         &goto2 フィールド,@7,%down
  9266.     }
  9267. #@1    &if(%direc<0){
  9268.         &se 13
  9269.         &goto2 フィールド,@8,%down
  9270.     }
  9271.  
  9272.  
  9273. //-------------------------------------------------------------------
  9274. [洞窟３]    //ジラーフ
  9275. //-------------------------------------------------------------------
  9276.     &mapsp SPP\DOUKUTU.SPP
  9277.     &mappal PAL\KANSOK_B.PAL
  9278.     &map MAP\DOUKUTU3.MAP
  9279.     &jsr 大
  9280.     %partypoint={@5,-%left}
  9281.     %bcirclesize=16
  9282.     &blackcircle 1
  9283.     &bgm 23
  9284.     I=0
  9285.  
  9286.     %mandef(3)={$6,1,$00,%right,0}    //ジラーフ（透明）
  9287.     &if(宝50==0){
  9288.         %mandef(4)={$D,1,$CE,%down,-1}    //小箱（閉）
  9289.     }&else{
  9290.         %mandef(4)={$D,1,$CF,%down,-1}    //小箱（開）
  9291.     }
  9292.     %mandef(5)={$9,1,$CA,%down,-1}    //青宝箱
  9293.     &if(Ａ>=230 or Ａ<190){
  9294.         %manpoint(5)={100,100}
  9295.     }
  9296.     &if(宝51==0){
  9297.         %mandef(6)={$D,1,$CE,%down,-1}    //小箱（閉）
  9298.     }&else{
  9299.         %mandef(6)={$D,1,$CF,%down,-1}    //小箱（開）
  9300.     }
  9301.     &if(宝52==0){
  9302.         %mandef(7)={$D,1,$CE,%down,-1}    //小箱（閉）
  9303.     }&else{
  9304.         %mandef(7)={$D,1,$CF,%down,-1}    //小箱（開）
  9305.     }
  9306.     &if(宝53==0){
  9307.         %mandef(8)={$E,1,$CA,%down,-1}    //宝箱（閉）
  9308.     }&else{
  9309.         %mandef(8)={$E,1,$CB,%down,-1}    //宝箱（開）
  9310.     }
  9311.     &if(宝54==0){
  9312.         %mandef(9)={$E,1,$CA,%down,-1}    //宝箱（閉）
  9313.     }&else{
  9314.         %mandef(9)={$E,1,$CB,%down,-1}    //宝箱（開）
  9315.     }
  9316.     &if(宝55==0){
  9317.         %mandef(10)={$E,1,$CA,%down,-1}    //宝箱（閉）
  9318.     }&else{
  9319.         %mandef(10)={$E,1,$CB,%down,-1}    //宝箱（開）
  9320.     }
  9321.     &if(宝56==0){
  9322.         %mandef(11)={$D,1,$CE,%down,-1}    //小箱（閉）
  9323.     }&else{
  9324.         %mandef(11)={$D,1,$CF,%down,-1}    //小箱（開）
  9325.     }
  9326.     &if(宝57==0){
  9327.         %mandef(12)={$E,1,$CA,%down,-1}    //宝箱（閉）
  9328.     }&else{
  9329.         %mandef(12)={$E,1,$CB,%down,-1}    //宝箱（開）
  9330.     }
  9331.     &if(宝58==0){
  9332.         %mandef(13)={$D,1,$CE,%down,-1}    //小箱（閉）
  9333.     }&else{
  9334.         %mandef(13)={$D,1,$CF,%down,-1}    //小箱（開）
  9335.     }
  9336.     &if(宝59==0){
  9337.         %mandef(14)={$E,1,$CA,%down,-1}    //宝箱（閉）
  9338.     }&else{
  9339.         %mandef(14)={$E,1,$CB,%down,-1}    //宝箱（開）
  9340.     }
  9341.     &on
  9342.     &jsr ライト
  9343.  
  9344. #3    &if(I==0 and Ａ<230){
  9345.         !o1s0おかしいな・・・。:向こう側が見えるのに先へ進めない。
  9346.         &if(Ａ==220){
  9347.             !p
  9348.         }&else{
  9349.             !qc
  9350.         }
  9351.     }
  9352.     &if(%haveitem(ムーンダスト)==1 and Ａ>=220 and I==0){
  9353.         !o1ムーンダストを使いますか？
  9354.         &if(%inkeyn==0){
  9355.             !:ムーンダストの花をかかげた。p
  9356.             !o1b0s0j2？？？:b5s22j0「ブフ、ブフ～。pcs20
  9357.             &manmove 3,4
  9358.             %mandef(3)={$6,6,$60,%right,0}    //ジラーフ
  9359.             &on
  9360.             &manmove 3,4
  9361.             %mandef(3)={$6,1,$00,%right,0}    //ジラーフ（透明）
  9362.             &on
  9363.             &manmove 3,4,4
  9364.             %mandef(3)={$6,6,$60,%right,0}    //ジラーフ
  9365.             &on
  9366.             &manmove 3,4,4
  9367.             %mandef(3)={$6,1,$00,%right,0}    //ジラーフ（透明）
  9368.             &on
  9369.             &manmove 3,4
  9370.             %mandef(3)={$6,6,$60,%right,0}    //ジラーフ
  9371.             &on
  9372.             &manmove 3,4,4,-6
  9373.             I++
  9374.         }
  9375.     }&else{
  9376.         &if(I==1){
  9377.             !o1b0s0j2ジラーフ:b5s22j0「ブフ、ブフ～。p
  9378.             !o1どうやらムーンダストの花の香りが:嫌いなようだ。qc
  9379.         }
  9380.     }
  9381. #4    &if(宝50==0){
  9382.         宝=ニコニコバッチ
  9383.         &jsr 宝箱小
  9384.         &if(宝箱フラグ==1){
  9385.             宝50=1
  9386.         }
  9387.     }&else{
  9388.         &jsr 空
  9389.     }
  9390. #5    !o1s0鍵が掛かっていて開かない。p
  9391.     !o1b0s0j2|2:b5s20j0「よし、こうなったら宝箱ごと持って行くぞ。p
  9392.     &if(%rasthaveitem>0){
  9393.         %manpoint(5)={100,100}
  9394.         &on
  9395.         &partyitemin 青い宝箱
  9396.         !o1s0j2i(青い宝箱)j0を手に入れた！qc
  9397.         Ａ=230
  9398.     }&else{
  9399.         &pcm 18
  9400.         !o1b2s0j1これ以上持てません！j0qcb5
  9401.     }
  9402. #6    &if(宝51==0){
  9403.         宝=エプロン
  9404.         &jsr 宝箱小
  9405.         &if(宝箱フラグ==1){
  9406.             宝51=1
  9407.         }
  9408.     }&else{
  9409.         &jsr 空
  9410.     }
  9411. #7    &if(宝52==0){
  9412.         宝=蝶ネクタイ
  9413.         &jsr 宝箱小
  9414.         &if(宝箱フラグ==1){
  9415.             宝52=1
  9416.         }
  9417.     }&else{
  9418.         &jsr 空
  9419.     }
  9420. #8    &if(宝53==0){
  9421.         宝=鍋のフタ
  9422.         &jsr 宝箱大
  9423.         &if(宝箱フラグ==1){
  9424.             宝53=1
  9425.         }
  9426.     }&else{
  9427.         &jsr 空
  9428.     }
  9429. #9    &if(宝54==0){
  9430.         宝=フライパン
  9431.         &jsr 宝箱大
  9432.         &if(宝箱フラグ==1){
  9433.             宝54=1
  9434.         }
  9435.     }&else{
  9436.         &jsr 空
  9437.     }
  9438. #10    &if(宝55==0){
  9439.         鍵=ケレスの鍵
  9440.         宝=壊れたオルゴール
  9441.         &jsr 鍵宝箱
  9442.         &if(宝箱フラグ==1){
  9443.             宝55=1
  9444.         }
  9445.     }&else{
  9446.         &jsr 空
  9447.     }
  9448. #11    &if(宝56==0){
  9449.         宝=鳴らない笛
  9450.         &jsr 宝箱小
  9451.         &if(宝箱フラグ==1){
  9452.             宝56=1
  9453.         }
  9454.     }&else{
  9455.         &jsr 空
  9456.     }
  9457. #12    &if(宝57==0){
  9458.         鍵=ケレスの鍵
  9459.         宝=白い鍵玉
  9460.         &jsr 鍵宝箱
  9461.         &if(宝箱フラグ==1){
  9462.             宝57=1
  9463.         }
  9464.     }&else{
  9465.         &jsr 空
  9466.     }
  9467. #13    &if(宝58==0){
  9468.         宝=赤いリボン
  9469.         &jsr 宝箱小
  9470.         &if(宝箱フラグ==1){
  9471.             宝58=1
  9472.         }
  9473.     }&else{
  9474.         &jsr 空
  9475.     }
  9476. #14    &if(宝59==0){
  9477.         宝=大地の鎧
  9478.         &jsr 宝箱大
  9479.         &if(宝箱フラグ==1){
  9480.             宝59=1
  9481.         }
  9482.     }&else{
  9483.         &jsr 空
  9484.     }
  9485.  
  9486. #@4    &if(%direc<0){
  9487.         &se 13
  9488.         &goto2 フィールド,@20,%down
  9489.     }
  9490.  
  9491.  
  9492. //-------------------------------------------------------------------
  9493. [風車]
  9494. //-------------------------------------------------------------------
  9495.     &mapsp SPP\HUUSYA.SPP
  9496.     &mappal PAL\HUUSYA.PAL
  9497.     &map MAP\HUUSYA.MAP
  9498.     &jsr 大
  9499.     %partypoint={@1,-%down}
  9500.     &bgm 21
  9501.  
  9502.     %mandef(1)={$2,6,$84,%down,-1}    //墓
  9503.     %mandef(2)={$2,6,$84,%down,-1}    //墓
  9504.     %mandef(3)={$2,6,$84,%down,-1}    //墓
  9505.     %mandef(4)={$A,3,$C0,%up,2}    //町男１
  9506.     %mandef(5)={$F,4,$C0,%down,0}    //商人男
  9507.     &if(宝14==0){
  9508.         %mandef(6)={$E,1,$CA,%down,-1}    //宝箱（閉）
  9509.     }&else{
  9510.         %mandef(6)={$E,1,$CB,%down,-1}    //宝箱（開）
  9511.     }
  9512.     %mandef(8)={$1,1,$C3,%down,-1}    //ドア
  9513.     %mandef(9)={$F,1,$C1,%down,-1}    //ドア（開）
  9514.     %manpoint(8)={10,11}
  9515.     %manpoint(9)={100,100}
  9516.     &if(墓==1){
  9517.         %manpoint(2)={53,33}
  9518.     }&else{
  9519.         %manpoint(2)={51,33}
  9520.     }
  9521.     &on
  9522.  
  9523. #1    &if(%direc==8){
  9524.         !o1s0『月の墓』qc
  9525.     }
  9526. #2    &if(%direc==8){
  9527.         !o1s0『太陽の墓』qc
  9528.     }
  9529.     &if(%direc==6 and 墓==0 and Ｂ>=70){
  9530.         !o1s0ん！？動きそうだ！:墓石を押してみる？
  9531.         &if(%inkeyn==0){
  9532.             !c
  9533.             墓=1
  9534.             &pcm 5
  9535.             &wait 10
  9536.             %manpoint(2)={52,33}
  9537.             &on
  9538.             &wait 7
  9539.             %manpoint(2)={53,33}
  9540.             &on
  9541.         }
  9542.     }
  9543. #3    &if(%direc==8){
  9544.         !o1s0『星の墓』qc
  9545.     }
  9546. #4    &if(Ｂ>=20 and レベル>%partylevel(1) and %rnd(2)==1){
  9547.         !o1s20「そこの白い君、魔法が使えるんだね。風系の最強呪文はヒュルリヒュララだよ。p;・・・うそうそ。qcs0
  9548.     }&else{
  9549.         !o1s20「それにしても、いい天気だなぁ。こういう日は、ここでひなたぼっこに限るね。qcs0
  9550.     }
  9551. #5    !o1s20「旅の商人の店にようこそ。p;
  9552.     &if(%rnd(3)==1){
  9553.         !外に並んでる墓は見たかい？何故か、３つの光が揃ってるだよな。p;
  9554.     }&else{
  9555.         !そろそろ、強い風が吹く季節なんだが・・・。今年はまだみたいだな。p;
  9556.     }
  9557.     !ところで何か買うのかい？
  9558.     %shoplist={シルバーリーフ,赤の法衣,青の法衣,炎心の指輪,雨雫のペンダント,風の麦わら帽子}
  9559.     I=20
  9560.     &jsr 店
  9561.     !o1s20「風が吹くようになるまでは、ここにいるから、また来てくれよ。qcs0
  9562. #6    &if(宝14==0){
  9563.         鍵=王様の鍵
  9564.         宝=魔かわしの盾
  9565.         &jsr 鍵宝箱
  9566.         &if(宝箱フラグ==1){
  9567.             宝14=1
  9568.         }
  9569.     }&else{
  9570.         &jsr 空
  9571.     }
  9572. #8    鍵=滝の鍵
  9573.     &jsr 鍵戸
  9574.  
  9575. #@0    &if(%direc<0){
  9576.         墓=0
  9577.         &se 13
  9578.         &goto2 フィールド,@21,%down
  9579.     }
  9580. #@2    &if(%direc<0){
  9581.         &pcm 1
  9582.         &partyspeed 1
  9583.         %manpoint(9)={51,13}
  9584.         &on
  9585.         &wait 100
  9586.         &move @4,%up
  9587.         %manpoint(9)={100,100}
  9588.     }
  9589. #@3    &if(%direc<0){
  9590.         &se 13
  9591.         &partyspeed 1
  9592.         &wait 100
  9593.         &move @5,%up
  9594.     }
  9595. #@4    &if(%direc<0){
  9596.         &se 13
  9597.         &partyspeed 2
  9598.         &move @2,%down
  9599.     }
  9600. #@5    &if(%direc<0){
  9601.         &se 13
  9602.         &partyspeed 2
  9603.         %manpoint(8)={10,11}
  9604.         &move @6,%down
  9605.     }
  9606. #@7    &if(%direc<0){
  9607.         I=100
  9608.         &se 18
  9609.         &goto2 風車地下１,@8,%down
  9610.     }
  9611.  
  9612.  
  9613. //-------------------------------------------------------------------
  9614. [風車地下１]
  9615. //-------------------------------------------------------------------
  9616.     &mapsp SPP\KANSOK_B.SPP
  9617.     &mappal PAL\KANSOK_B.PAL
  9618.     &map MAP\HUUSYA.MAP
  9619.     %partypoint={@10,%down}
  9620.     &blackcircle 1
  9621.     &if(I==100){
  9622.         %bcirclesize=16
  9623.         &bgm 33
  9624.     }
  9625.  
  9626.     &if(忍者==0){
  9627.         %mandef(7)={$A,6,$00,%down,0}    //忍者
  9628.     }
  9629.     &if(宝15==0){
  9630.         %mandef(10)={$E,1,$CA,%down,-1}    //宝箱（閉）
  9631.     }&else{
  9632.         %mandef(10)={$E,1,$CB,%down,-1}    //宝箱（開）
  9633.     }
  9634.     &on
  9635.     &if(I==100){
  9636.         &jsr ライト
  9637.     }
  9638.  
  9639. #7    !o1b0s0j2飛丸:b5s20j0「なんと！かくれんぼは、終わったのでござるか！p;
  9640.     !・w・w・wむ、無念。qcs0
  9641.     &manmove 7,8,8,8,8
  9642.     %manpoint(7)={100,100}
  9643.     &se 10
  9644.     &on
  9645.     忍者=1
  9646. #10    &if(宝15==0){
  9647.         宝=すすけたマント
  9648.         &jsr 宝箱大
  9649.         &if(宝箱フラグ==1){
  9650.             宝15=1
  9651.         }
  9652.     }&else{
  9653.         &jsr 空
  9654.     }
  9655.  
  9656. #@8    &if(%direc<0){
  9657.         &se 17
  9658.         &goto2 風車,@7,%down
  9659.     }
  9660. #@9    &if(%direc<0){
  9661.         墓=0
  9662.         &jsr 落ちる
  9663.         &move @13,%down
  9664.     }
  9665. #@11    &if(%direc<0){
  9666.         I=0
  9667.         &jsr 落ちる
  9668.         &goto2 滝＿中,@12,%down
  9669.     }
  9670. #@12    &if(%direc<0){
  9671.         &jsr 落ちる
  9672.         &move @15,%down
  9673.     }
  9674. #@14    &if(%direc<0){
  9675.         &jsr 落ちる
  9676.         &move @10,%down
  9677.     }
  9678. #@16    &if(%direc<0){
  9679.         &se 17
  9680.         &goto2 風車地下２,@0,%down
  9681.     }
  9682. #@20    &jsr 敵１
  9683.     &patternpal PAL\CG_B.PAL
  9684.     &switch(%rnd(6)){
  9685.     &case 0:
  9686.         &battle $0,35,ゾンビ,%rnd(4)+1
  9687.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ19==0){
  9688.             モ19=1
  9689.         }
  9690.         &break
  9691.     &case 1:
  9692.         &battle $0,35,吸血コウモリ,%rnd(8)+1
  9693.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ17==0){
  9694.             モ17=1
  9695.         }
  9696.         &break
  9697.     &case 2:
  9698.         &battle $0,35,アナノモグラ,%rnd(5)+1
  9699.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ18==0){
  9700.             モ18=1
  9701.         }
  9702.         &break
  9703.     &case 3:
  9704.         &battle $0,35,カビキラ,%rnd(6)+1
  9705.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ15==0){
  9706.             モ15=1
  9707.         }
  9708.         &break
  9709.     &case 4:
  9710.         &battle $0,35,人喰いグモ,%rnd(2)+1,吸血コウモリ,%rnd(5)+1
  9711.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ20==0){
  9712.             モ20=1
  9713.         }
  9714.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ17==0){
  9715.             モ17=1
  9716.         }
  9717.         &break
  9718.     &case 5:
  9719.         &battle $0,35,アナノモグラ,%rnd(3)+1,ゾンビ,%rnd(2)+1
  9720.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ18==0){
  9721.             モ18=1
  9722.         }
  9723.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ19==0){
  9724.             モ19=1
  9725.         }
  9726.         &break
  9727.     }
  9728.     &jsr 戦闘後処理
  9729.  
  9730.  
  9731. //-------------------------------------------------------------------
  9732. [風車地下２]
  9733. //-------------------------------------------------------------------
  9734.     &mapsp SPP\KANSOK_B.SPP
  9735.     &mappal PAL\KANSOK_B.PAL
  9736.     &map MAP\TUURO.MAP
  9737.     %partypoint={@13,%down}
  9738.     &blackcircle 1
  9739.  
  9740.     &if(宝16==0){
  9741.         %mandef(10)={$E,1,$CA,%down,-1}    //宝箱（閉）
  9742.     }&else{
  9743.         %mandef(10)={$E,1,$CB,%down,-1}    //宝箱（開）
  9744.     }
  9745.     &on
  9746.  
  9747. #10    &if(宝16==0){
  9748.         宝=緑宝石
  9749.         &jsr 宝箱大
  9750.         &if(宝箱フラグ==1){
  9751.             宝16=1
  9752.         }
  9753.     }&else{
  9754.         &jsr 空
  9755.     }
  9756.  
  9757. #@0    &if(%direc<0){
  9758.         I=0
  9759.         &se 18
  9760.         &goto2 風車地下１,@16,%down
  9761.     }
  9762. #@1    &if(%direc<0){
  9763.         I=0
  9764.         &jsr 落ちる
  9765.         &goto2 洞窟１,@24,%down
  9766.     }
  9767. #@20    &jsr 敵１
  9768.     &patternpal PAL\CG_B.PAL
  9769.     &switch(%rnd(6)){
  9770.     &case 0:
  9771.         &battle $0,35,ゾンビ,%rnd(4)+1
  9772.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ19==0){
  9773.             モ19=1
  9774.         }
  9775.         &break
  9776.     &case 1:
  9777.         &battle $0,35,吸血コウモリ,%rnd(8)+1
  9778.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ17==0){
  9779.             モ17=1
  9780.         }
  9781.         &break
  9782.     &case 2:
  9783.         &battle $0,35,アナノモグラ,%rnd(5)+1
  9784.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ18==0){
  9785.             モ18=1
  9786.         }
  9787.         &break
  9788.     &case 3:
  9789.         &battle $0,35,カビキラ,%rnd(6)+1
  9790.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ15==0){
  9791.             モ15=1
  9792.         }
  9793.         &break
  9794.     &case 4:
  9795.         &battle $0,35,人喰いグモ,%rnd(2)+1,吸血コウモリ,%rnd(5)+1
  9796.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ20==0){
  9797.             モ20=1
  9798.         }
  9799.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ17==0){
  9800.             モ17=1
  9801.         }
  9802.         &break
  9803.     &case 5:
  9804.         &battle $0,35,アナノモグラ,%rnd(3)+1,ゾンビ,%rnd(2)+1
  9805.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ18==0){
  9806.             モ18=1
  9807.         }
  9808.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ19==0){
  9809.             モ19=1
  9810.         }
  9811.         &break
  9812.     }
  9813.     &jsr 戦闘後処理
  9814.  
  9815.  
  9816. //-------------------------------------------------------------------
  9817. [灯台]
  9818. //-------------------------------------------------------------------
  9819.     &mapsp SPP\TOUDAI.SPP
  9820.     &mappal PAL\SIRO.PAL
  9821.     &map MAP\TOUDAI.MAP
  9822.     &jsr 大
  9823.     %partypoint={@1,-%up}
  9824.     &if(%nowbgm!=14){
  9825.         &bgm 14
  9826.     }
  9827.  
  9828.     %mandef(1)={$9,1,$A8,%down,-1}    //左ドア
  9829.     %mandef(2)={$9,1,$AC,%down,-1}    //右ドア
  9830.     %manpoint(1)={30,50}
  9831.     %manpoint(2)={32,50}
  9832.     &on
  9833.  
  9834. #1    &if(Ａ<20){
  9835.         !o1s0扉は固く閉ざされている。qc
  9836.     }&else{
  9837.         !o1s0『呪文を唱えよ』と扉に書いてある。:
  9838.         !呪文を唱えますか？
  9839.         &if(%inkeyn==1){
  9840.             &&
  9841.         }&else{
  9842.             &if(Ａ<250){
  9843.                 !c
  9844.                 &wait 10
  9845.                 &se 2
  9846.                 &inputpartyname 10
  9847.                 &se 3
  9848.                 呪文=0
  9849.             }&else{
  9850.                 &if(指輪==0){
  9851.                     !o1s0どの呪文を唱えますか？
  9852.                     &se 2
  9853.                     %selectlist={風のウィンドシア,その他}
  9854.                     &switch(%select){
  9855.                     &default:
  9856.                         !c
  9857.                         &&
  9858.                     &case 0:
  9859.                         !c
  9860.                         &se 3
  9861.                         呪文=1
  9862.                         &break
  9863.                     &case 1:
  9864.                         !c
  9865.                         &wait 10
  9866.                         &se 2
  9867.                         &inputpartyname 10
  9868.                         &se 3
  9869.                         呪文=0
  9870.                         &break
  9871.                     }
  9872.                 }&else{
  9873.                     !o1s0どの呪文を唱えますか？
  9874.                     &se 2
  9875.                     %selectlist={風のウィンドシア,地のレゴリアス,その他}
  9876.                     &switch(%select){
  9877.                     &default:
  9878.                         !c
  9879.                         &&
  9880.                     &case 0:
  9881.                         !c
  9882.                         &se 3
  9883.                         呪文=1
  9884.                         &break
  9885.                     &case 1:
  9886.                         !c
  9887.                         &se 3
  9888.                         呪文=2
  9889.                         &break
  9890.                     &case 2:
  9891.                         !c
  9892.                         &wait 10
  9893.                         &se 2
  9894.                         &inputpartyname 10
  9895.                         &se 3
  9896.                         呪文=0
  9897.                         &break
  9898.                     }
  9899.                 }
  9900.             }
  9901.         }
  9902.         &wait 50
  9903.         &if(呪文!=0){
  9904.             &pcm 3
  9905.             &wait 5
  9906.             %mandef(1)={$9,1,$A9,%down,-1}    //左ドア（開１）
  9907.             %mandef(2)={$9,1,$AD,%down,-1}    //右ドア（開１）
  9908.             &on
  9909.             &wait 8
  9910.             %mandef(1)={$9,1,$AA,%down,-1}    //左ドア（開２）
  9911.             %mandef(2)={$9,1,$AE,%down,-1}    //右ドア（開２）
  9912.             &on
  9913.             &wait 5
  9914.             %mandef(1)={$9,1,$AB,%down,-1}    //左ドア（開３）
  9915.             %mandef(2)={$9,1,$AF,%down,-1}    //右ドア（開３）
  9916.             &on
  9917.             &wait 3
  9918.             %manpoint(1)={100,100}
  9919.             %manpoint(2)={100,100}
  9920.             &on
  9921.         }&else{
  9922.             !o1s0・w・w・w呪文が違うようだ。qc
  9923.         }
  9924.     }
  9925. #2    &link 1
  9926.  
  9927. #@0    &if(%direc<0){
  9928.         &se 13
  9929.         &goto2 フィールド,@10,%down
  9930.     }
  9931. #@2    &if(%direc<0){
  9932.         &if(呪文==1){
  9933.             &se 13
  9934.             &goto 灯台＿中
  9935.         }&else{
  9936.             &se 13
  9937.             &goto2 灯台＿中,@33,%up
  9938.         }
  9939.     }
  9940.  
  9941.  
  9942. //-------------------------------------------------------------------
  9943. [灯台＿中]
  9944. //-------------------------------------------------------------------
  9945.     &mapsp SPP\TOUDAI_I.SPP
  9946.     &map MAP\TOUDAI.MAP
  9947.     &mappal PAL\TOUDAI_I.PAL
  9948.     %partypoint={@5,%up}
  9949.     &if(%nowbgm!=14){
  9950.         &bgm 14
  9951.     }
  9952.  
  9953.     %mandef(1)={$A,1,$14,%up,0}    //炎
  9954.     %mandef(2)={$A,1,$14,%up,0}    //炎
  9955.     %mandef(3)={$A,1,$14,%up,0}    //炎
  9956.     %mandef(4)={$A,1,$14,%up,0}    //炎
  9957.     %mandef(5)={$A,1,$14,%up,0}    //炎
  9958.     %mandef(6)={$A,1,$14,%up,0}    //炎
  9959.     %mandef(7)={$8,7,$E4,%down,0}    //ロウソク
  9960.     %mandef(8)={$8,7,$E4,%down,0}    //ロウソク
  9961.     %mandef(9)={$8,7,$E4,%down,0}    //ロウソク
  9962.     %mandef(10)={$7,0,$00,%down,-1}    //水晶
  9963.     %mandef(11)={$8,7,$E4,%down,0}    //ロウソク
  9964.     %mandef(12)={$8,7,$E4,%down,0}    //ロウソク
  9965.     %mandef(13)={$8,7,$E4,%down,0}    //ロウソク
  9966.     %mandef(14)={$8,7,$E4,%down,0}    //ロウソク
  9967.     %mandef(15)={$8,7,$E4,%down,0}    //ロウソク
  9968.     %mandef(16)={$8,7,$E4,%down,0}    //ロウソク
  9969.     %mandef(17)={$8,7,$E4,%down,0}    //ロウソク
  9970.     %mandef(20)={$4,3,$80,%up,0}    //占い師
  9971.     %mandef(21)={$8,7,$E4,%down,0}    //ロウソク
  9972.     %mandef(22)={$8,7,$E4,%down,0}    //ロウソク
  9973.     %mandef(23)={$8,7,$E4,%down,0}    //ロウソク
  9974.     %mandef(24)={$8,7,$E4,%down,0}    //ロウソク
  9975.     %mandef(25)={$A,1,$14,%up,0}    //炎
  9976.     %mandef(26)={$A,1,$14,%up,0}    //炎
  9977.     %mandef(27)={$A,1,$14,%up,0}    //炎
  9978.     %mandef(28)={$A,1,$14,%up,0}    //炎
  9979.     &if(宝60==0){
  9980.         %mandef(33)={$E,1,$CA,%down,-1}    //宝箱（閉）
  9981.     }&else{
  9982.         %mandef(33)={$E,1,$CB,%down,-1}    //宝箱（開）
  9983.     }
  9984.     %manpoint(1)={44,146}
  9985.     %manpoint(2)={56,133}
  9986.     %manpoint(3)={56,146}
  9987.     %manpoint(4)={44,133}
  9988.     %manpoint(5)={60,139}
  9989.     %manpoint(6)={40,139}
  9990.     %manpoint(25)={41,159}
  9991.     %manpoint(26)={59,159}
  9992.     %manpoint(27)={41,167}
  9993.     %manpoint(28)={59,167}
  9994.     &if(水晶==0){
  9995.         %manpoint(10)={100,100}
  9996.     }&else{
  9997.         %manpoint(10)={50,167}
  9998.     }
  9999.     &jsr ワープ３
  10000.     &on
  10001.  
  10002.     &jsr ワープ４
  10003.  
  10004. #1
  10005. #2
  10006. #3
  10007. #4
  10008. #5
  10009. #6
  10010. #7
  10011. #8
  10012. #9
  10013. #10    &if(%haveitem(オールトの指輪)==1){
  10014.         &jsr 水晶飛
  10015.     }
  10016.     !o1s0旅の水晶を取る？
  10017.     &if(%inkeyn==0){
  10018.         &if(%rasthaveitem>0){
  10019.             &partyitemin 旅の水晶
  10020.             水晶=0
  10021.             %manpoint(10)={100,100}
  10022.             &on
  10023.             !o1s0j2i(旅の水晶)j0を手に入れた。q
  10024.             &if(指輪<3){
  10025.                 指輪=1
  10026.             }
  10027.         }&else{
  10028.             &pcm 18
  10029.             !o1b2s0j1これ以上持てません！j0qb5
  10030.         }
  10031.     }
  10032.     !c
  10033. #11
  10034. #12
  10035. #13
  10036. #14
  10037. #15
  10038. #16
  10039. #17
  10040. #20    &if(Ａ==255){
  10041.         !o1b0s0j2占い師:b5s20j0「あなた方が来ることは判っていました。p;
  10042.         !占って欲しいのは、ジオット博士の居場所ですね？
  10043.         &if(%inkeyn==0){
  10044.             Ａ=260
  10045.             !;よろしい。占いましょう。p;
  10046.             &manmove 20,-8
  10047.             !￡∴＄￠∂∽◇§※∞∵！
  10048.             &se 3
  10049.             &freash 16693
  10050.             !p;・・・w見えてきました。これは砂。砂漠のようですね。p;
  10051.             !そして水。・・・砂漠の水。wそうです、これはオアシスです。p;
  10052.             !そこにジオット博士はいます。p;
  10053.             !ん！？!ジオット博士らしき人物の他にもいくつかの影が見えます。
  10054.             &manmove 20,-2
  10055.             !これは急いだ方が良いかも知れませんよ。qcs0
  10056.             &&
  10057.         }&else{
  10058.             !;それでは、
  10059.         }
  10060.     }&else{
  10061.         !o1b0s0j2占い師:b5s20j0「
  10062.     }
  10063.     &if(Ａ<290){
  10064.         !今後の運勢を占いましょうか？
  10065.         &if(%inkeyn==0){
  10066.             !;どちらの運勢を占いますか？;
  10067.             &se 2
  10068.             %selectlist={タマ,クロ}
  10069.             &switch(%select){
  10070.             &case 0:
  10071.                 !タマさんですね。では、占ってみましょう。p;
  10072.                 &manmove 20,-8
  10073.                 !￡∴＄￠∂∽◇§※∞∵！
  10074.                 &se 3
  10075.                 &freash 16693
  10076.                 !p;出ました。
  10077.                 &manmove 20,-2
  10078.                 !p;タマさんは今後、自分自身の中に問題を抱え込み、
  10079.                 !大変苦労することになるでしょう。;以上です。p
  10080.                 &partymove -2
  10081.                 !o1b0s0j2|2:b5s20j0「はははっ、タマも大変だな。qcs0
  10082.                 &partymove -8
  10083.                 &break
  10084.             &case 1:
  10085.                 !クロさんですね。では、占ってみましょう。p;
  10086.                 &manmove 20,-8
  10087.                 !￡∴＄￠∂∽◇§※∞∵！
  10088.                 &se 3
  10089.                 &freash 16693
  10090.                 !p;出ました。
  10091.                 &manmove 20,-2
  10092.                 !p;クロさんは今後、他人に振り回され、それが原因で
  10093.                 !大きな災いが降りかかることでしょう。;以上です。p
  10094.                 &partymove -2
  10095.                 !o1b0s0j2|2:b5s20j0「・・・・・・。qcs0
  10096.                 &partymove -8
  10097.                 &break
  10098.             &default:
  10099.                 !やめるのですね。qcs0
  10100.             }
  10101.         }&else{
  10102.             !;そうですか。qcs0
  10103.         }
  10104.     }&else{
  10105.         !この国に残っている開いていない宝箱の数を占いましょうか？
  10106.         &if(%inkeyn==0){
  10107.             !;それでは、占ってみましょう。p;
  10108.             &manmove 20,-8
  10109.             !￡∴＄￠∂∽◇§※∞∵！
  10110.             &se 3
  10111.             &freash 16693
  10112.             !p;・
  10113.             宝=宝01+宝02+宝03+宝04+宝05+宝06+宝07+宝08+宝09+宝10+宝11+宝12+宝13+宝14+宝15+宝16+宝17+宝18+宝19+宝20
  10114.             !・
  10115.             宝=宝+宝21+宝22+宝23+宝24+宝25+宝26+宝27+宝28+宝29+宝30+宝31+宝32+宝33+宝34+宝35+宝36+宝37+宝38+宝39+宝40
  10116.             !・
  10117.             宝=宝+宝41+宝42+宝43+宝44+宝45+宝46+宝47+宝48+宝49+宝50+宝51+宝52+宝53+宝54+宝55+宝56+宝57+宝58+宝59+宝60
  10118.             宝=60-宝
  10119.             !出ました。;p
  10120.             &manmove 20,-2
  10121.             &if(宝==0){
  10122.                 !この国には、もう開いていない宝箱は残っていないようです。qcs0
  10123.             }&else{
  10124.                 !この国には、まだf(宝)個の開いていない宝箱が残っているようです。qcs0
  10125.             }
  10126.         }&else{
  10127.             !;そうですか。qcs0
  10128.         }
  10129.     }
  10130.     &manmove 20,-8
  10131. #33    &if(宝60==0){
  10132.         鍵=王様の鍵
  10133.         宝=旅の水晶
  10134.         &jsr 鍵宝箱
  10135.         &if(宝箱フラグ==1){
  10136.             宝60=1
  10137.         }
  10138.     }&else{
  10139.         &jsr 空
  10140.     }
  10141. #21
  10142. #22
  10143. #23
  10144. #24
  10145. #25
  10146. #26
  10147. #27
  10148. #28
  10149.  
  10150. #@4    &if(%direc<0){
  10151.         &se 13
  10152.         &goto2 灯台,@3,%down
  10153.     }
  10154. #@6    &if(%direc<0){
  10155.         &contrast 0
  10156.         &se 17
  10157.         &wait 200
  10158.         &mappal PAL\TOUDAI_S.PAL
  10159.         &move @9,%down
  10160.     }
  10161. #@8    &if(%direc<0){
  10162.         &contrast 0
  10163.         &se 18
  10164.         &wait 180
  10165.         &mappal PAL\TOUDAI_I.PAL
  10166.         &move @7,%down
  10167.     }
  10168. #@10    &if(%direc==8){
  10169.         &link @28
  10170.     }
  10171. #@11    &if(%direc<0){
  10172.         &se 18
  10173.         &wait 100
  10174.         &move @24,%down
  10175.     }
  10176. #@12    &if(%direc<0){
  10177.         &se 17
  10178.         &wait 100
  10179.         &move @13,%down
  10180.     }
  10181. #@13    &if(%direc<0){
  10182.         &se 18
  10183.         &wait 100
  10184.         &move @12,%down
  10185.     }
  10186. #@14    &if(%direc<0){
  10187.         &se 17
  10188.         &wait 100
  10189.         &move @15,%down
  10190.     }
  10191. #@15    &if(%direc<0){
  10192.         &se 18
  10193.         &wait 100
  10194.         &move @14,%down
  10195.     }
  10196. #@16    &if(%direc<0){
  10197.         &se 17
  10198.         &wait 100
  10199.         &move @17,%down
  10200.     }
  10201. #@17    &if(%direc<0){
  10202.         &se 18
  10203.         &wait 100
  10204.         &move @16,%down
  10205.     }
  10206. #@18    &if(%direc<0){
  10207.         &partymove -8
  10208.         &se 17
  10209.         &wait 100
  10210.         &move @19,%up
  10211.     }
  10212. #@19    &if(%direc<0){
  10213.         &partymove -8
  10214.         &se 18
  10215.         &wait 100
  10216.         &move @18,%up
  10217.     }
  10218. #@20    &if(%direc<0){
  10219.         &se 17
  10220.         &wait 100
  10221.         &move @21,%down
  10222.     }
  10223. #@21    &if(%direc<0){
  10224.         &se 18
  10225.         &wait 100
  10226.         &move @20,%down
  10227.     }
  10228. #@22    &if(%direc<0){
  10229.         &jsr ワープ
  10230.         &move @23,%down
  10231.     }
  10232. #@23    &if(%direc<0){
  10233.         &jsr ワープ
  10234.         &move @22,%down
  10235.     }
  10236. #@24    &if(%dire\c<0){
  10237.         &se 17
  10238.         &wait 100
  10239.         &move @11,%down
  10240.     }
  10241. #@25    &if(%direc==2){
  10242.         &link @28
  10243.     }
  10244. #@26    &if(%direc==6){
  10245.         &link @28
  10246.     }
  10247. #@27    &if(%direc==4){
  10248.         &link @28
  10249.     }
  10250. #@28    &if(%haveitem(旅の水晶)==1){
  10251.         !o1s0旅の水晶を置く？
  10252.         &if(%inkeyn==0){
  10253.             !c
  10254.             &partyitemout 旅の水晶
  10255.             水晶=1
  10256.             %manpoint(10)={50,167-153}
  10257.             &on
  10258.             &if(指輪==1){
  10259.                 指輪=2
  10260.             }
  10261.         }
  10262.     }
  10263. #@29    &if(%direc<0){
  10264.         &se 18
  10265.         &wait 100
  10266.         &move @32,%down
  10267.     }
  10268. #@31    &if(%direc<0){
  10269.         &se 17
  10270.         &wait 100
  10271.         &move @30,%down
  10272.     }
  10273.  
  10274.  
  10275. //-------------------------------------------------------------------
  10276. [入口]
  10277. //-------------------------------------------------------------------
  10278.     &mapsp SPP\ISEKI.SPP
  10279.     &mappal PAL\ISEKI.PAL
  10280.     &map MAP\IRIGUTI.MAP
  10281.     &jsr 大
  10282.     %partypoint={@2,-%up}
  10283.     &bgm 26
  10284.  
  10285.     %mandef(5)={$D,5,$E0,%down,0}    //盗賊
  10286.     %mandef(6)={$1,6,$87,%down,-1}    //鍵玉（赤）
  10287.     %mandef(8)={$4,7,$E0,%down,-1}    //ドア（閉）
  10288.     %mandef(10)={$1,6,$87,%down,-1}    //鍵玉（赤）
  10289.     &if(赤01==0){
  10290.         %mandef(1)={$4,7,$E0,%down,-1}    //ドア（閉）
  10291.         %mandef(3)={$1,1,$00,%down,-1}    //鍵玉（赤なし）
  10292.         %manpoint(1)={6,13}
  10293.     }&else{
  10294.         %mandef(1)={$4,7,$E3,%down,-1}    //ドア（開３）
  10295.         %mandef(3)={$1,6,$87,%down,-1}    //鍵玉（赤）
  10296.         %manpoint(1)={200,200}
  10297.     }
  10298.     &if(青01==0){
  10299.         %mandef(2)={$4,7,$E0,%down,-1}    //ドア（閉）
  10300.         %mandef(4)={$4,1,$00,%down,-1}    //鍵玉（青なし）
  10301.         %manpoint(2)={48,23}
  10302.         %manpoint(8)={48,62}
  10303.     }&else{
  10304.         %mandef(2)={$4,7,$E3,%down,-1}    //ドア（開３）
  10305.         %mandef(4)={$4,6,$87,%down,-1}    //鍵玉（青）
  10306.         %mandef(7)={$4,6,$87,%down,-1}    //鍵玉（青）
  10307.         %manpoint(2)={200,200}
  10308.         %manpoint(8)={200,200}
  10309.     }
  10310.     &if(宝18==0){
  10311.         %mandef(9)={$E,1,$CA,%down,-1}    //宝箱（閉）
  10312.     }&else{
  10313.         %mandef(9)={$E,1,$CB,%down,-1}    //宝箱（開）
  10314.     }
  10315.     &if(盗賊逃>0){
  10316.         %manpoint(5)={200,200}
  10317.     }
  10318.     &if(盗賊逃==1){
  10319.         %manpoint(10)={26,14}
  10320.     }&else{
  10321.         %manpoint(10)={200,200}
  10322.     }
  10323.     &on
  10324.  
  10325. #1    !o1s0開かない。qc
  10326. #2    !o1s0開かない。qc
  10327. #3    I=1
  10328.     &if(赤01==0){
  10329.         &if(%haveitem(赤い鍵玉)==1){
  10330.             赤01=1
  10331.             &jsr 赤IN
  10332.             &jsr 扉開
  10333.         }&else{
  10334.             &pcm 18
  10335.             !o1b2s0j1使える鍵玉を持っていません！j0b5qc
  10336.         }
  10337.     }&else{
  10338.         &if(%rasthaveitem>0){
  10339.             赤01=0
  10340.             &jsr 赤OUT
  10341.             X=6
  10342.             Y=13
  10343.             &jsr 扉閉
  10344.         }&else{
  10345.             &pcm 18
  10346.             !o1b2s0j1これ以上持てません！j0b5qc
  10347.         }
  10348.     }
  10349. #4    I=2
  10350.     &if(青01==0){
  10351.         &if(%haveitem(青い鍵玉)==1){
  10352.             青01=1
  10353.             &jsr 青IN
  10354.             %manpoint(8)={200,200}
  10355.             &jsr 扉開
  10356.         }&else{
  10357.             &pcm 18
  10358.             !o1b2s0j1使える鍵玉を持っていません！j0b5qc
  10359.         }
  10360.     }&else{
  10361.         &if(%rasthaveitem>0){
  10362.             青01=0
  10363.             &jsr 青OUT
  10364.             %manpoint(8)={48,62}
  10365.             X=48
  10366.             Y=23
  10367.             &jsr 扉閉
  10368.             &on
  10369.         }&else{
  10370.             &pcm 18
  10371.             !o1b2s0j1これ以上持てません！j0b5qc
  10372.         }
  10373.     }
  10374. #5    !o1s0b0j2盗賊:j0b5s20「よう！待ってたぜ。p;おとなしく王様の鍵を渡しな。
  10375.     !オレがこの国に来たのはその鍵が目的だったんだ。;p力ずくでも頂くぜ！おっとっと、その前に。p
  10376.     !o1s0盗賊はj2魔封じの玉j0を使った！
  10377.     &freash 12190
  10378.     &freash 12190
  10379.     %racemagicdef(1)={？？？,？？？,？？？,？？？,？？？,？？？}
  10380.     %racemagicdef(4)={？？？,？？？,？？？,？？？,？？？,？？？}
  10381.     %racemagicdef(5)={？？？,？？？,？？？,？？？,？？？,？？？}
  10382.     %racemagicdef(6)={？？？,？？？,？？？,？？？,？？？,？？？,？？？}
  10383.     &on
  10384.     !:魔法が使えなくなってしまった！p
  10385.     !o1s0b0j2盗賊:j0b5s20「ははは、魔法を使われたら勝ち目がないんでな。pcs0
  10386.     &battle $1000,35,盗賊,1
  10387.     &if(%exitcode==1){
  10388.         &jmp ＧＯ
  10389.     }
  10390.     &if(%exitcode==0){
  10391.         %racemagicdef(1)={ポー,ヒュー,ヒュル,ポラ,ヒュラ,ヒュルラ}
  10392.         %racemagicdef(4)={ファ,ファル,ポー,ファラ,ポル,ファルラ}
  10393.         %racemagicdef(5)={ポル,ウォー,ウォル,ポルラ,ウォラ,ウォルラ}
  10394.         %racemagicdef(6)={ピッカ,ポラ,ピカル,ピカラ,ポルラ,ピカルラ,ポルラキ}
  10395.         !o1s0b0j2盗賊:j0b5s20「ちくしょう！憶えてやがれ！pc
  10396.         盗賊逃=1
  10397.         %mandef(5)={$D,5,$E0,%down,1}    //盗賊
  10398.         %mandef(10)={$1,6,$87,%down,-1}    //鍵玉（赤）
  10399.         %manpoint(10)={26,14}
  10400.         &on
  10401.         &manmove 5,4,4,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  10402.         &se 10
  10403.         %manpoint(5)={200,200}
  10404.         &on
  10405.     }
  10406. #6
  10407. #7
  10408. #8
  10409. #9    &if(宝46==0){
  10410.         鍵=王様の鍵
  10411.         宝=青い鍵玉
  10412.         &jsr 鍵宝箱
  10413.         &if(宝箱フラグ==1){
  10414.             宝18=1
  10415.         }
  10416.     }&else{
  10417.         &jsr 空
  10418.     }
  10419. #10    !o1s0j2i(赤い鍵玉)j0を見つけた！p
  10420.     &if(%rasthaveitem>0){
  10421.         盗賊逃=2
  10422.         &partyitemin 赤い鍵玉
  10423.         %manpoint(10)={200,200}
  10424.         &on
  10425.         !:j2i(赤い鍵玉)j0を手に入れた！qc
  10426.     }&else{
  10427.         &pcm 18
  10428.         !o1b2s0j1これ以上持てません！j0qcb5
  10429.     }
  10430.  
  10431. #@0    &if(%direc<0){
  10432.         &se 13
  10433.         &goto2 フィールド,@26,%down
  10434.     }
  10435. #@1    &if(%direc<0){
  10436.         &se 13
  10437.         &wait 100
  10438.         &move @5,%up
  10439.     }
  10440. #@3    &if(%direc<0){
  10441.         &se 13
  10442.         &wait 100
  10443.         &move @7,%up
  10444.     }
  10445. #@5    &if(%direc<0){
  10446.         &se 13
  10447.         &wait 100
  10448.         &move @1,%down
  10449.     }
  10450. #@7    &if(%direc<0){
  10451.         &se 13
  10452.         &wait 100
  10453.         &move @3,%down
  10454.     }
  10455. #@9    &if(%direc<0){
  10456.         &jsr ワープ
  10457.         &goto 通路
  10458.     }
  10459.  
  10460.  
  10461. //-------------------------------------------------------------------
  10462. [通路]
  10463. //-------------------------------------------------------------------
  10464.     &mapsp SPP\ISEKI.SPP
  10465.     &mappal PAL\ISEKI.PAL
  10466.     &map MAP\TUURO.MAP
  10467.     %partypoint={@2,%down}
  10468.     &bgm 27
  10469.     %bcirclesize=16
  10470.     &blackcircle 1
  10471.  
  10472.     %mandef(4)={$4,7,$E0,%down,-1}    //ドア（閉）
  10473.     &if(赤B1==0){
  10474.         %mandef(1)={$1,1,$00,%down,-1}    //鍵玉（赤なし）
  10475.         %mandef(2)={$4,7,$E0,%down,-1}    //ドア（閉）
  10476.         %mandef(3)={$1,1,$00,%down,-1}    //鍵玉（赤なし）
  10477.         %manpoint(2)={209,2}
  10478.         %manpoint(4)={249,44}
  10479.     }&else{
  10480.         %mandef(1)={$1,6,$87,%down,-1}    //鍵玉（赤）
  10481.         %mandef(2)={$4,7,$E3,%down,-1}    //ドア（開３）
  10482.         %mandef(3)={$1,6,$87,%down,-1}    //鍵玉（赤）
  10483.         %manpoint(2)={200,200}
  10484.         %manpoint(4)={200,200}
  10485.     }
  10486.     &on
  10487.  
  10488.     &jsr ライト
  10489.  
  10490. #1    I=2
  10491.     &if(赤B1==0){
  10492.         &if(%haveitem(赤い鍵玉)==1){
  10493.             赤B1=1
  10494.             &jsr 赤IN
  10495.             %manpoint(4)={200,200}
  10496.             &jsr 扉開
  10497.         }&else{
  10498.             &pcm 18
  10499.             !o1b2s0j1使える鍵玉を持っていません！j0b5qc
  10500.         }
  10501.     }&else{
  10502.         &if(%rasthaveitem>0){
  10503.             赤B1=0
  10504.             &jsr 赤OUT
  10505.             %manpoint(4)={209,44}
  10506.             X=209
  10507.             Y=2
  10508.             &jsr 扉閉
  10509.         }&else{
  10510.             &pcm 18
  10511.             !o1b2s0j1これ以上持てません！j0b5qc
  10512.         }
  10513.     }
  10514. #2    !o1s0開かない。qc
  10515. #3
  10516. #4    !o1s0開かない。qc
  10517.  
  10518. #@2    &if(%direc<0){
  10519.         &jsr ワープ
  10520.         &goto2 入口,@9,%down
  10521.     }
  10522. #@3    &if(%direc<0){
  10523.         &se 13
  10524.         &move @4,%up
  10525.     }
  10526. #@4    &if(%direc<0){
  10527.         &se 13
  10528.         &move @3,%down
  10529.     }
  10530. #@5    &if(%direc<0){
  10531.         &jsr ワープ
  10532.         &goto 遺跡１
  10533.     }
  10534. #@10    &if(%direc<0){
  10535.         &wait 4
  10536.     }
  10537. #@30    &jsr 敵１
  10538.     &patternpal PAL\CG_C.PAL
  10539.     &switch(%rnd(5)){
  10540.     &case 0:
  10541.         &battle $0,35,スライム,1
  10542.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ29==0){
  10543.             モ29=1
  10544.         }
  10545.         &break
  10546.     &case 1:
  10547.         &battle $0,35,呪いのランプ,1
  10548.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ28==0){
  10549.             モ28=1
  10550.         }
  10551.         &break
  10552.     &case 2:
  10553.         &battle $0,35,シニガミ,1
  10554.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ26==0){
  10555.             モ26=1
  10556.         }
  10557.         &break
  10558.     &case 3:
  10559.         &battle $0,35,呪いのランプ,1,シニガミ,1
  10560.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ28==0){
  10561.             モ28=1
  10562.         }
  10563.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ26==0){
  10564.             モ26=1
  10565.         }
  10566.         &break
  10567.     &case 4:
  10568.         &battle $0,35,スライム,1,呪いのランプ,1
  10569.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ29==0){
  10570.             モ29=1
  10571.         }
  10572.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ28==0){
  10573.             モ28=1
  10574.         }
  10575.         &break
  10576.     }
  10577.     &jsr 戦闘後処理
  10578. #@31    &jsr 敵１
  10579.     &patternpal PAL\CG_C.PAL
  10580.     &switch(%rnd(5)){
  10581.     &case 0:
  10582.         &battle $0,35,マーメイド,%rnd(2)+1
  10583.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ25==0){
  10584.             モ25=1
  10585.         }
  10586.         &break
  10587.     &case 1:
  10588.         &battle $0,35,呪いのランプ,1
  10589.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ28==0){
  10590.             モ28=1
  10591.         }
  10592.         &break
  10593.     &case 2:
  10594.         &battle $0,35,シニガミ,1
  10595.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ26==0){
  10596.             モ26=1
  10597.         }
  10598.         &break
  10599.     &case 3:
  10600.         &battle $0,35,呪いのランプ,1,シニガミ,1
  10601.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ28==0){
  10602.             モ28=1
  10603.         }
  10604.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ26==0){
  10605.             モ26=1
  10606.         }
  10607.         &break
  10608.     &case 4:
  10609.         &battle $0,35,マーメイド,%rnd(2)+1,呪いのランプ,1
  10610.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ25==0){
  10611.             モ25=1
  10612.         }
  10613.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ28==0){
  10614.             モ28=1
  10615.         }
  10616.         &break
  10617.     }
  10618.     &jsr 戦闘後処理
  10619.  
  10620.  
  10621. //-------------------------------------------------------------------
  10622. [遺跡１Ｆ]
  10623. //-------------------------------------------------------------------
  10624.     &patternpal PAL\CG_C.PAL
  10625.     &mapsp SPP\ISEKI.SPP
  10626.     &mappal PAL\ISEKI.PAL
  10627.     &if(船==1){
  10628.         &map MAP\ISEKI1F_.MAP
  10629.     }&else{
  10630.         &map MAP\ISEKI1F.MAP
  10631.     }
  10632.     &if(C==0){
  10633.         &partyset A,B
  10634.     }&else{
  10635.         &partyset A,B,C,D
  10636.     }
  10637.     &if(Ａ==400){
  10638.         %partypoint={115,64,%down}
  10639.     }&else{
  10640.         %partypoint={@0,%down}
  10641.     }
  10642.     &if(%nowbgm!=28 and Ａ!=400){
  10643.         &bgm 28
  10644.     }
  10645.  
  10646.     &if(船==1){
  10647.         %mandef(13)={$E,6,$40,%left,0}    //ホロ
  10648.     }
  10649.     %mandef(31)={$4,7,$E0,%down,-1}    //ドア（閉）
  10650.     %mandef(32)={$4,7,$E0,%down,-1}    //ドア（閉）
  10651.     %mandef(33)={$4,7,$E0,%down,-1}    //ドア（閉）
  10652.     &if(青11==0){
  10653.         %mandef(1)={$4,1,$00,%down,-1}    //鍵玉（青なし）
  10654.         %mandef(2)={$4,1,$00,%down,-1}    //鍵玉（青なし）
  10655.         %mandef(21)={$4,7,$E0,%down,-1}    //ドア（閉）
  10656.         %manpoint(21)={70,32}
  10657.         %manpoint(31)={9,140}
  10658.     }&else{
  10659.         %mandef(1)={$4,6,$87,%down,-1}    //鍵玉（青）
  10660.         %mandef(2)={$4,6,$87,%down,-1}    //鍵玉（青）
  10661.         %mandef(21)={$4,7,$E3,%down,-1}    //ドア（開３）
  10662.         %manpoint(21)={200,200}
  10663.         %manpoint(31)={200,200}
  10664.     }
  10665.     &if(青12==0){
  10666.         %mandef(3)={$4,1,$00,%down,-1}    //鍵玉（青なし）
  10667.         %mandef(4)={$4,1,$00,%down,-1}    //鍵玉（青なし）
  10668.         %mandef(22)={$4,7,$E0,%down,-1}    //ドア（閉）
  10669.         %manpoint(22)={21,53}
  10670.     }&else{
  10671.         %mandef(3)={$4,6,$87,%down,-1}    //鍵玉（青）
  10672.         %mandef(4)={$4,6,$87,%down,-1}    //鍵玉（青）
  10673.         %mandef(22)={$4,7,$E3,%down,-1}    //ドア（開３）
  10674.         %manpoint(22)={200,200}
  10675.     }
  10676.     &if(青13==0){
  10677.         %mandef(5)={$4,1,$00,%down,-1}    //鍵玉（青なし）
  10678.         %mandef(6)={$4,1,$00,%down,-1}    //鍵玉（青なし）
  10679.         %mandef(23)={$4,7,$E0,%down,-1}    //ドア（閉）
  10680.         %manpoint(23)={51,64}
  10681.     }&else{
  10682.         %mandef(5)={$4,6,$87,%down,-1}    //鍵玉（青）
  10683.         %mandef(6)={$4,6,$87,%down,-1}    //鍵玉（青）
  10684.         %mandef(23)={$4,7,$E3,%down,-1}    //ドア（開３）
  10685.         %manpoint(23)={200,200}
  10686.     }
  10687.     &if(赤11==0){
  10688.         %mandef(7)={$1,1,$00,%down,-1}    //鍵玉（赤なし）
  10689.         %mandef(8)={$1,1,$00,%down,-1}    //鍵玉（赤なし）
  10690.         %mandef(24)={$4,7,$E0,%down,-1}    //ドア（閉）
  10691.         %manpoint(24)={117,18}
  10692.         %manpoint(32)={133,169}
  10693.     }&else{
  10694.         %mandef(7)={$1,6,$87,%down,-1}    //鍵玉（赤）
  10695.         %mandef(8)={$1,6,$87,%down,-1}    //鍵玉（赤）
  10696.         %mandef(24)={$4,7,$E3,%down,-1}    //ドア（開３）
  10697.         %manpoint(24)={200,200}
  10698.         %manpoint(32)={200,200}
  10699.     }
  10700.     &if(青14==0){
  10701.         %mandef(11)={$4,1,$00,%down,-1}    //鍵玉（青なし）
  10702.         %mandef(12)={$4,1,$00,%down,-1}    //鍵玉（青なし）
  10703.     }&else{
  10704.         %mandef(11)={$4,6,$87,%down,-1}    //鍵玉（青）
  10705.         %mandef(12)={$4,6,$87,%down,-1}    //鍵玉（青）
  10706.     }
  10707.     &if(赤12==0){
  10708.         %mandef(9)={$1,1,$00,%down,-1}    //鍵玉（赤なし）
  10709.         %mandef(10)={$1,1,$00,%down,-1}    //鍵玉（赤なし）
  10710.     }&else{
  10711.         %mandef(9)={$1,6,$87,%down,-1}    //鍵玉（赤）
  10712.         %mandef(10)={$1,6,$87,%down,-1}    //鍵玉（赤）
  10713.     }
  10714.     &if(青14==1 and 赤12==1){
  10715.         %mandef(25)={$4,7,$E3,%down,-1}    //ドア（開３）
  10716.         %manpoint(25)={200,200}
  10717.         %manpoint(33)={200,200}
  10718.     }&else{
  10719.         %mandef(25)={$4,7,$E0,%down,-1}    //ドア（閉）
  10720.         %manpoint(25)={115,64}
  10721.         %manpoint(33)={135,141}
  10722.     }
  10723.     &if(宝19==0){
  10724.         %mandef(14)={$E,1,$CA,%down,-1}    //宝箱（閉）
  10725.     }&else{
  10726.         %mandef(14)={$E,1,$CB,%down,-1}    //宝箱（開）
  10727.     }
  10728.     &if(宝20==0){
  10729.         %mandef(15)={$E,1,$CA,%down,-1}    //宝箱（閉）
  10730.     }&else{
  10731.         %mandef(15)={$E,1,$CB,%down,-1}    //宝箱（開）
  10732.     }
  10733.     &if(宝21==0){
  10734.         %mandef(16)={$E,1,$CA,%down,-1}    //宝箱（閉）
  10735.     }&else{
  10736.         %mandef(16)={$E,1,$CB,%down,-1}    //宝箱（開）
  10737.     }
  10738.     &if(宝22==0){
  10739.         %mandef(17)={$E,1,$CA,%down,-1}    //宝箱（閉）
  10740.     }&else{
  10741.         %mandef(17)={$E,1,$CB,%down,-1}    //宝箱（開）
  10742.     }
  10743.     &if(宝23==0){
  10744.         %mandef(18)={$E,1,$CA,%down,-1}    //宝箱（閉）
  10745.     }&else{
  10746.         %mandef(18)={$E,1,$CB,%down,-1}    //宝箱（開）
  10747.     }
  10748.     &if(宝24==0){
  10749.         %mandef(19)={$E,1,$CA,%down,-1}    //宝箱（閉）
  10750.     }&else{
  10751.         %mandef(19)={$E,1,$CB,%down,-1}    //宝箱（開）
  10752.     }
  10753.     &if(宝25==0){
  10754.         %mandef(20)={$E,1,$CA,%down,-1}    //宝箱（閉）
  10755.     }&else{
  10756.         %mandef(20)={$E,1,$CB,%down,-1}    //宝箱（開）
  10757.     }
  10758.     &if(I==777){
  10759.         %mandef(13)={$E,6,$40,%down,0}    //ホロ
  10760.         %manpoint(13)={140,66}
  10761.     }
  10762.     &if(Ａ==400){
  10763.         %mandef(28)={$C,2,$E0,%down,0}    //パンダ仮面
  10764.         %mandef(29)={$B,0,$AE,%down,-1}    //？
  10765.         %mandef(30)={$B,0,$AF,%down,-1}    //！
  10766.         %mandef(31)={$C,0,$40,%left,0}    //タマ
  10767.         %mandef(32)={$B,1,$40,%up,0}    //ラズ
  10768.         %mandef(33)={$B,1,$60,%up,0}    //ストロ
  10769.         %mandef(34)={$B,1,$80,%up,0}    //グーズ
  10770.         %manpoint(28)={126,45}
  10771.         %manpoint(29)={200,200}
  10772.         %manpoint(30)={200,200}
  10773.         %manpoint(31)={200,200}
  10774.         %manpoint(32)={200,200}
  10775.         %manpoint(33)={200,200}
  10776.         %manpoint(34)={200,200}
  10777.     }
  10778.     &on
  10779.  
  10780.     &if(I==777){
  10781.         &ldef II=0
  10782.         I=0
  10783.         &partymove 4,4,4,4,4,4,4,4,4,4,4,4,4,4
  10784.         %mandef(13)={$E,6,$40,%down,1}    //ホロ
  10785.         &on
  10786.         &manmove 13,8,8,8,8,8,4,4,4
  10787.         %mandef(13)={$E,6,$40,%left,0}    //ホロ
  10788.         &on
  10789.         !o1b0s0j2ホロ:b5s20j0「よし、気をつけて行って来い。qcs0
  10790.         %manpoint(13)={137,61}
  10791.     }
  10792.     &if(Ａ==400){
  10793.         &partyspeed 1
  10794.         &se 13
  10795.         &partymove 2,2,2,2,6,6,6,6,6,6,6,6,6,6,6,-8
  10796.         %manpoint(29)={%px+1,%py-2}
  10797.         &on
  10798.         &pcm 22
  10799.         %mandef(28)={$C,2,$E0,%down,1}    //パンダ仮面
  10800.         &on
  10801.         &manmove 28,2,2,2,2,2,2,2,2,2,2,2
  10802.         %manpoint(29)={200,200}
  10803.         &on
  10804.         &manmove 28,2,2,2,2,2,2,2,2,2,2
  10805.         %mandef(28)={$C,2,$E0,%down,0}    //パンダ仮面
  10806.         &on
  10807.         !o1b0s0j2パンダ仮面:b5s22j0「おい、君達、忘れ物ですよ。p
  10808.         !o1s0j2i(竜の涙)j0を手に入れた！p
  10809.         !o1b0s0j2|2:b5s20j0「お、おい、カイパー！;wこれをどこで・・・。p
  10810.         !o1b0s0j2パンダ仮面:b5s22j0「私はカイパーではない。正義の使者パンダ仮面だ。p;では、さらば！pc
  10811.         %mandef(28)={$C,2,$E0,%down,1}    //パンダ仮面
  10812.         &on
  10813.         &manmove 28,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  10814.         %mandef(28)={$C,2,$E0,%down,0}    //パンダ仮面
  10815.         %manpoint(28)={200,200}
  10816.         &on
  10817.         &se 4
  10818.         &partymove 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  10819.         %manpoint(29)={%px,%py-3}
  10820.         &on
  10821.         &pcm 22
  10822.         &partymove -4,-6,-8,-6,-4
  10823.         %manpoint(29)={200,200}
  10824.         %manpoint(31)={%px,%py-1}
  10825.         %manpoint(32)={%px,%py+2}
  10826.         %manpoint(33)={%px,%py+5}
  10827.         %manpoint(34)={%px,%py+8}
  10828.         &partyset 0
  10829.         &on
  10830.         &manmove 13,-4,-4,-4,-4,-4
  10831.         &pcm 20
  10832.         &manmove 34,-2
  10833.         !o1b0s0j2|6:b8s20j0「・・・はなび。pcs0
  10834.         &manmove 13,-2
  10835.         &manmove 33,-2
  10836.         &manmove 32,-2
  10837.         &manmove 31,-2
  10838.         &bgm -1
  10839.         &jsr 闇
  10840.         &goto Ｏ＆Ｃ
  10841.     }
  10842.  
  10843. #1
  10844. #2    I=21
  10845.     &if(青11==0){
  10846.         &if(%haveitem(青い鍵玉)==1){
  10847.             青11=1
  10848.             &jsr 青IN
  10849.             %manpoint(31)={200,200}
  10850.             &jsr 扉開
  10851.         }&else{
  10852.             &pcm 18
  10853.             !o1b2s0j1使える鍵玉を持っていません！j0b5qc
  10854.         }
  10855.     }&else{
  10856.         &if(%rasthaveitem>0){
  10857.             青11=0
  10858.             &jsr 青OUT
  10859.             %manpoint(31)={9,140}
  10860.             X=70
  10861.             Y=32
  10862.             &jsr 扉閉
  10863.         }&else{
  10864.             &pcm 18
  10865.             !o1b2s0j1これ以上持てません！j0b5qc
  10866.         }
  10867.     }
  10868. #3
  10869. #4    I=22
  10870.     &if(青12==0){
  10871.         &if(%haveitem(青い鍵玉)==1){
  10872.             青12=1
  10873.             &jsr 青IN
  10874.             &jsr 扉開
  10875.         }&else{
  10876.             &pcm 18
  10877.             !o1b2s0j1使える鍵玉を持っていません！j0b5qc
  10878.         }
  10879.     }&else{
  10880.         &if(%rasthaveitem>0){
  10881.             青12=0
  10882.             &jsr 青OUT
  10883.             X=21
  10884.             Y=53
  10885.             &jsr 扉閉
  10886.         }&else{
  10887.             &pcm 18
  10888.             !o1b2s0j1これ以上持てません！j0b5qc
  10889.         }
  10890.     }
  10891. #5
  10892. #6    I=23
  10893.     &if(青13==0){
  10894.         &if(%haveitem(青い鍵玉)==1){
  10895.             青13=1
  10896.             &jsr 青IN
  10897.             &jsr 扉開
  10898.         }&else{
  10899.             &pcm 18
  10900.             !o1b2s0j1使える鍵玉を持っていません！j0b5qc
  10901.         }
  10902.     }&else{
  10903.         &if(%rasthaveitem>0){
  10904.             青13=0
  10905.             &jsr 青OUT
  10906.             X=51
  10907.             Y=64
  10908.             &jsr 扉閉
  10909.         }&else{
  10910.             &pcm 18
  10911.             !o1b2s0j1これ以上持てません！j0b5qc
  10912.         }
  10913.     }
  10914. #7
  10915. #8    I=24
  10916.     &if(赤11==0){
  10917.         &if(%haveitem(赤い鍵玉)==1){
  10918.             赤11=1
  10919.             &jsr 赤IN
  10920.             %manpoint(32)={200,200}
  10921.             &jsr 扉開
  10922.         }&else{
  10923.             &pcm 18
  10924.             !o1b2s0j1使える鍵玉を持っていません！j0b5qc
  10925.         }
  10926.     }&else{
  10927.         &if(%rasthaveitem>0){
  10928.             赤11=0
  10929.             &jsr 赤OUT
  10930.             %manpoint(32)={133,169}
  10931.             X=117
  10932.             Y=18
  10933.             &jsr 扉閉
  10934.         }&else{
  10935.             &pcm 18
  10936.             !o1b2s0j1これ以上持てません！j0b5qc
  10937.         }
  10938.     }
  10939. #9
  10940. #10    I=25
  10941.     &if(赤12==0){
  10942.         &if(%haveitem(赤い鍵玉)==1){
  10943.             赤12=1
  10944.             &jsr 赤IN
  10945.             &if(青14==1){
  10946.                 %manpoint(33)={200,200}
  10947.                 &jsr 扉開
  10948.             }
  10949.         }&else{
  10950.             &pcm 18
  10951.             !o1b2s0j1使える鍵玉を持っていません！j0b5qc
  10952.         }
  10953.     }&else{
  10954.         &if(%rasthaveitem>0){
  10955.             赤12=0
  10956.             &jsr 赤OUT
  10957.             &if(青14==1){
  10958.                 %manpoint(33)={135,141}
  10959.                 X=115
  10960.                 Y=64
  10961.                 &jsr 扉閉
  10962.             }
  10963.         }&else{
  10964.             &pcm 18
  10965.             !o1b2s0j1これ以上持てません！j0b5qc
  10966.         }
  10967.     }
  10968. #11
  10969. #12    I=25
  10970.     &if(青14==0){
  10971.         &if(%haveitem(青い鍵玉)==1){
  10972.             青14=1
  10973.             &jsr 青IN
  10974.             &if(赤12==1){
  10975.                 %manpoint(33)={200,200}
  10976.                 &jsr 扉開
  10977.             }
  10978.         }&else{
  10979.             &pcm 18
  10980.             !o1b2s0j1使える鍵玉を持っていません！j0b5qc
  10981.         }
  10982.     }&else{
  10983.         &if(%rasthaveitem>0){
  10984.             青14=0
  10985.             &jsr 青OUT
  10986.             &if(赤12==1){
  10987.                 %manpoint(33)={135,141}
  10988.                 X=115
  10989.                 Y=64
  10990.                 &jsr 扉閉
  10991.             }
  10992.         }&else{
  10993.             &pcm 18
  10994.             !o1b2s0j1これ以上持てません！j0b5qc
  10995.         }
  10996.     }
  10997. #13    &if(Ａ<340 and II==0){
  10998.         !o1b0s0j2ホロ:b5s20j0「お前等、鍵玉は持ってるか？;p
  10999.         &if(%haveitem(青い鍵玉)==1 or %haveitem(赤い鍵玉)==1){
  11000.             !おお、持ってるな。
  11001.         }&else{
  11002.             !なんだ、持ってないじゃねえか。
  11003.         }
  11004.         !遺跡の奥に進むには、鍵玉がたくさん必要だぞ。q
  11005.         II=1
  11006.         &&
  11007.     }
  11008.     &if(Ａ==340){
  11009.         !o1b0s0j2ホロ:b5s20j0「お、３Ｆの部屋まで行ったのか。p;
  11010.         !あの扉を開けるには４種類の鍵玉が必要みたいだな。q
  11011.         Ａ=350
  11012.         &&
  11013.     }
  11014.     &if(青21==0 and Ａ==320){
  11015.         !o1b0s0j2ホロ:b5s20j0「何、扉が閉まってる？p;
  11016.         !ということは、向こう側の鍵玉を取った奴がいやがるな。p;
  11017.         !砂漠側から入って鍵玉をはめて来なきゃなんねえぞ。q
  11018.         Ａ=330
  11019.         &&
  11020.     }
  11021.     !o1b0s0j2ホロ:b5s20j0「何の用だ？帰るのか？;
  11022.     &se 2
  11023.     %selectlist={泊まる,旅の記録,帰る,やめる}
  11024.     &switch(%select){
  11025.     &default:
  11026.         &break
  11027.     &case 0:
  11028.         !よし、ゆっくり休め！qcs0
  11029.         &jsr 宿
  11030.         &link 100
  11031.     &case 1:
  11032.         !よし、記録しろ！p
  11033.         %partynamedef(0)=古の遺跡
  11034.         &save 100,@15,-%right
  11035.         !o1b0s0j2ホロ:b5s20j0「
  11036.         &break
  11037.     &case 2:
  11038.         !よし、乗り込め！pcs0
  11039.         %mandef(13)={$E,6,$40,%left,1}    //ホロ
  11040.         &on
  11041.         &manmove 13,6,6,6,2,2,2,2,2
  11042.         %mandef(13)={$E,6,$40,%left,0}    //ホロ
  11043.         &on
  11044.         &partymove 6,6,6,6,6,6,8,8,4,2,2,8,8,2,2
  11045.         !o1b0s0j2ホロ:b5s20j0「出発！！pcs0
  11046.         &goto 船帰り
  11047.     }
  11048.     !無理するんじゃねえぞ！qcs0
  11049. #14    &if(宝19==0){
  11050.         宝=青い鍵玉
  11051.         鍵=王様の鍵
  11052.         &jsr 鍵宝箱
  11053.         &if(宝箱フラグ==1){
  11054.             宝19=1
  11055.         }
  11056.     }&else{
  11057.         &jsr 空
  11058.     }
  11059. #15    &if(宝20==0){
  11060.         宝=百雷の杖
  11061.         宝敵=呪いのランプ
  11062.         敵数=1
  11063.         &jsr 敵宝箱
  11064.         &if(宝箱フラグ==1){
  11065.             宝20=1
  11066.         }
  11067.     }&else{
  11068.         &jsr 空
  11069.     }
  11070. #16    &if(宝21==0){
  11071.         宝=ゴールドリーフ
  11072.         &jsr 宝箱大
  11073.         &if(宝箱フラグ==1){
  11074.             宝21=1
  11075.         }
  11076.     }&else{
  11077.         &jsr 空
  11078.     }
  11079. #17    &if(宝22==0){
  11080.         宝=ポルラの石
  11081.         宝敵=呪いのランプ
  11082.         敵数=1
  11083.         &jsr 敵宝箱
  11084.         &if(宝箱フラグ==1){
  11085.             宝22=1
  11086.         }
  11087.     }&else{
  11088.         &jsr 空
  11089.     }
  11090. #18    &if(宝23==0){
  11091.         宝=青い鍵玉
  11092.         鍵=王様の鍵
  11093.         &jsr 鍵宝箱
  11094.         &if(宝箱フラグ==1){
  11095.             宝23=1
  11096.         }
  11097.     }&else{
  11098.         &jsr 空
  11099.     }
  11100. #19    &if(宝24==0){
  11101.         宝=赤い鍵玉
  11102.         鍵=王様の鍵
  11103.         &jsr 鍵宝箱
  11104.         &if(宝箱フラグ==1){
  11105.             宝24=1
  11106.         }
  11107.     }&else{
  11108.         &jsr 空
  11109.     }
  11110. #20    &if(宝25==0){
  11111.         宝=赤い鍵玉
  11112.         宝敵=呪いのランプ
  11113.         敵数=1
  11114.         &jsr 敵宝箱
  11115.         &if(宝箱フラグ==1){
  11116.             宝25=1
  11117.         }
  11118.     }&else{
  11119.         &jsr 空
  11120.     }
  11121. #21    !o1s0開かない。qc
  11122. #22    !o1s0開かない。qc
  11123. #23    !o1s0開かない。qc
  11124. #24    !o1s0開かない。qc
  11125. #25    !o1s0開かない。qc
  11126. #31    !o1s0開かない。qc
  11127. #32    !o1s0開かない。qc
  11128. #33    !o1s0開かない。qc
  11129. #100    &jsr 装備切り換え
  11130.     &ldef II=0
  11131.     &bgm 28
  11132.     !o1b0s0j2ホロ:b5s20j0「よし、行って来い！qcs0
  11133.  
  11134. #@0    &if(%direc<0){
  11135.         &jsr ワープ
  11136.         &goto2 通路,@5,%down
  11137.     }
  11138. #@1    &if(%direc<0){
  11139.         &se 13
  11140.         &move @2,%down
  11141.     }
  11142. #@2    &if(%direc<0){
  11143.         &se 13
  11144.         &move @1,%up
  11145.     }
  11146. #@3    &if(%direc<0){
  11147.         &se 13
  11148.         &move @4,%down
  11149.     }
  11150. #@4    &if(%direc<0){
  11151.         &se 13
  11152.         &move @3,%up
  11153.     }
  11154. #@5    &if(%direc<0){
  11155.         &se 13
  11156.         &move @6,%down
  11157.     }
  11158. #@6    &if(%direc<0){
  11159.         &se 13
  11160.         &move @5,%up
  11161.     }
  11162. #@7    &if(%direc<0){
  11163.         &se 13
  11164.         &move @8,%down
  11165.     }
  11166. #@8    &if(%direc<0){
  11167.         &se 13
  11168.         &move @7,%up
  11169.     }
  11170. #@9    &if(%direc<0){
  11171.         &se 13
  11172.         &move @10,%down
  11173.     }
  11174. #@10    &if(%direc<0){
  11175.         &se 13
  11176.         &move @9,%up
  11177.     }
  11178. #@11    &if(%direc<0){
  11179.         &jsr ワープ
  11180.         &goto2 遺跡２Ｆ,@0,%down
  11181.     }
  11182. #@12    &if(%direc<0){
  11183.         &jsr ワープ
  11184.         &goto2 遺跡２Ｆ,@17,%down
  11185.     }
  11186. #@13    &if(%direc<0){
  11187.         &jsr ワープ
  11188.         &goto2 遺跡２Ｆ,@12,%down
  11189.     }
  11190. #@30    &jsr 敵１
  11191.     &patternpal PAL\CG_C.PAL
  11192.     &switch(%rnd(5)){
  11193.     &case 0:
  11194.         &battle $0,35,スライム,%rnd(3)+1
  11195.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ29==0){
  11196.             モ29=1
  11197.         }
  11198.         &break
  11199.     &case 1:
  11200.         &battle $0,35,呪いのランプ,%rnd(2)+1
  11201.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ28==0){
  11202.             モ28=1
  11203.         }
  11204.         &break
  11205.     &case 2:
  11206.         &battle $0,35,シニガミ,%rnd(2)+1
  11207.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ26==0){
  11208.             モ26=1
  11209.         }
  11210.         &break
  11211.     &case 3:
  11212.         &battle $0,35,呪いのランプ,1,シニガミ,1,呪いのランプ,1
  11213.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ28==0){
  11214.             モ28=1
  11215.         }
  11216.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ26==0){
  11217.             モ26=1
  11218.         }
  11219.         &break
  11220.     &case 4:
  11221.         &battle $0,35,スライム,1,呪いのランプ,%rnd(2)+1
  11222.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ29==0){
  11223.             モ29=1
  11224.         }
  11225.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ28==0){
  11226.             モ28=1
  11227.         }
  11228.         &break
  11229.     }
  11230.     &jsr 戦闘後処理
  11231. #@31    &jsr 敵１
  11232.     &patternpal PAL\CG_C.PAL
  11233.     &switch(%rnd(5)){
  11234.     &case 0:
  11235.         &battle $0,35,マーメイド,%rnd(3)+1
  11236.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ25==0){
  11237.             モ25=1
  11238.         }
  11239.         &break
  11240.     &case 1:
  11241.         &battle $0,35,呪いのランプ,%rnd(2)+1
  11242.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ28==0){
  11243.             モ28=1
  11244.         }
  11245.         &break
  11246.     &case 2:
  11247.         &battle $0,35,シニガミ,%rnd(2)+1
  11248.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ26==0){
  11249.             モ26=1
  11250.         }
  11251.         &break
  11252.     &case 3:
  11253.         &battle $0,35,呪いのランプ,1,シニガミ,1,呪いのランプ,1
  11254.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ28==0){
  11255.             モ28=1
  11256.         }
  11257.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ26==0){
  11258.             モ26=1
  11259.         }
  11260.         &break
  11261.     &case 4:
  11262.         &battle $0,35,マーメイド,%rnd(3)+1,呪いのランプ,%rnd(2)+1
  11263.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ25==0){
  11264.             モ25=1
  11265.         }
  11266.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ28==0){
  11267.             モ28=1
  11268.         }
  11269.         &break
  11270.     }
  11271.     &jsr 戦闘後処理
  11272.  
  11273.  
  11274. //-------------------------------------------------------------------
  11275. [遺跡２Ｆ]
  11276. //-------------------------------------------------------------------
  11277.     &map MAP\ISEKI2F.MAP
  11278.     %partypoint={@0,%down}
  11279.  
  11280.     &if(Ａ<320){
  11281.         Ａ=320
  11282.     }
  11283.     %mandef(26)={$4,7,$E0,%down,-1}    //ドア（閉）
  11284.     &if(青21==0){
  11285.         %mandef(1)={$4,1,$00,%down,-1}    //鍵玉（青なし）
  11286.         %mandef(2)={$4,1,$00,%down,-1}    //鍵玉（青なし）
  11287.         %mandef(21)={$4,7,$E0,%down,-1}    //ドア（閉）
  11288.         %manpoint(21)={62,45}
  11289.         %manpoint(26)={79,144}
  11290.     }&else{
  11291.         %mandef(1)={$4,6,$87,%down,-1}    //鍵玉（青）
  11292.         %mandef(2)={$4,6,$87,%down,-1}    //鍵玉（青）
  11293.         %mandef(21)={$4,7,$E3,%down,-1}    //ドア（開３）
  11294.         %manpoint(21)={200,200}
  11295.         %manpoint(26)={200,200}
  11296.     }
  11297.     &if(青22==0){
  11298.         %mandef(3)={$4,1,$00,%down,-1}    //鍵玉（青なし）
  11299.         %mandef(4)={$4,1,$00,%down,-1}    //鍵玉（青なし）
  11300.         %mandef(22)={$4,7,$E0,%down,-1}    //ドア（閉）
  11301.         %manpoint(22)={46,61}
  11302.     }&else{
  11303.         %mandef(3)={$4,6,$87,%down,-1}    //鍵玉（青）
  11304.         %mandef(4)={$4,6,$87,%down,-1}    //鍵玉（青）
  11305.         %mandef(22)={$4,7,$E3,%down,-1}    //ドア（開３）
  11306.         %manpoint(22)={200,200}
  11307.     }
  11308.     &if(青23==0){
  11309.         %mandef(5)={$4,1,$00,%down,-1}    //鍵玉（青なし）
  11310.         %mandef(6)={$4,1,$00,%down,-1}    //鍵玉（青なし）
  11311.         %mandef(23)={$4,7,$E0,%down,-1}    //ドア（閉）
  11312.         %manpoint(23)={10,29}
  11313.     }&else{
  11314.         %mandef(5)={$4,6,$87,%down,-1}    //鍵玉（青）
  11315.         %mandef(6)={$4,6,$87,%down,-1}    //鍵玉（青）
  11316.         %mandef(23)={$4,7,$E3,%down,-1}    //ドア（開３）
  11317.         %manpoint(23)={200,200}
  11318.     }
  11319.     &if(赤21==0){
  11320.         %mandef(7)={$1,1,$00,%down,-1}    //鍵玉（赤なし）
  11321.         %mandef(8)={$1,1,$00,%down,-1}    //鍵玉（赤なし）
  11322.     }&else{
  11323.         %mandef(7)={$1,6,$87,%down,-1}    //鍵玉（赤）
  11324.         %mandef(8)={$1,6,$87,%down,-1}    //鍵玉（赤）
  11325.     }
  11326.     &if(青24==0){
  11327.         %mandef(9)={$4,1,$00,%down,-1}    //鍵玉（青なし）
  11328.         %mandef(10)={$4,1,$00,%down,-1}    //鍵玉（青なし）
  11329.     }&else{
  11330.         %mandef(9)={$4,6,$87,%down,-1}    //鍵玉（青）
  11331.         %mandef(10)={$4,6,$87,%down,-1}    //鍵玉（青）
  11332.     }
  11333.     &if(青24==1 and 赤21==1){
  11334.         %mandef(24)={$4,7,$E3,%down,-1}    //ドア（開３）
  11335.         %manpoint(24)={200,200}
  11336.     }&else{
  11337.         %mandef(24)={$4,7,$E0,%down,-1}    //ドア（閉）
  11338.         %manpoint(24)={30,45}
  11339.     }
  11340.     &if(赤22==0){
  11341.         %mandef(11)={$1,1,$00,%down,-1}    //鍵玉（赤なし）
  11342.         %mandef(12)={$1,1,$00,%down,-1}    //鍵玉（赤なし）
  11343.     }&else{
  11344.         %mandef(11)={$1,6,$87,%down,-1}    //鍵玉（赤）
  11345.         %mandef(12)={$1,6,$87,%down,-1}    //鍵玉（赤）
  11346.     }
  11347.     &if(青25==0){
  11348.         %mandef(13)={$4,1,$00,%down,-1}    //鍵玉（青なし）
  11349.         %mandef(14)={$4,1,$00,%down,-1}    //鍵玉（青なし）
  11350.     }&else{
  11351.         %mandef(13)={$4,6,$87,%down,-1}    //鍵玉（青）
  11352.         %mandef(14)={$4,6,$87,%down,-1}    //鍵玉（青）
  11353.     }
  11354.     &if(青25==1 and 赤22==1){
  11355.         %mandef(25)={$4,7,$E3,%down,-1}    //ドア（開３）
  11356.         %manpoint(25)={200,200}
  11357.     }&else{
  11358.         %mandef(25)={$4,7,$E0,%down,-1}    //ドア（閉）
  11359.         %manpoint(25)={62,13}
  11360.     }
  11361.     &if(宝26==0){
  11362.         %mandef(15)={$E,1,$CA,%down,-1}    //宝箱（閉）
  11363.     }&else{
  11364.         %mandef(15)={$E,1,$CB,%down,-1}    //宝箱（開）
  11365.     }
  11366.     &if(宝27==0){
  11367.         %mandef(16)={$E,1,$CA,%down,-1}    //宝箱（閉）
  11368.     }&else{
  11369.         %mandef(16)={$E,1,$CB,%down,-1}    //宝箱（開）
  11370.     }
  11371.     &if(宝28==0){
  11372.         %mandef(17)={$E,1,$CA,%down,-1}    //宝箱（閉）
  11373.     }&else{
  11374.         %mandef(17)={$E,1,$CB,%down,-1}    //宝箱（開）
  11375.     }
  11376.     &on
  11377.  
  11378. #1
  11379. #2    I=21
  11380.     &if(青21==0){
  11381.         &if(%haveitem(青い鍵玉)==1){
  11382.             青21=1
  11383.             &jsr 青IN
  11384.             %manpoint(26)={200,200}
  11385.             &jsr 扉開
  11386.         }&else{
  11387.             &pcm 18
  11388.             !o1b2s0j1使える鍵玉を持っていません！j0b5qc
  11389.         }
  11390.     }&else{
  11391.         &if(%rasthaveitem>0){
  11392.             青21=0
  11393.             &jsr 青OUT
  11394.             %manpoint(26)={79,144}
  11395.             X=62
  11396.             Y=45
  11397.             &jsr 扉閉
  11398.         }&else{
  11399.             &pcm 18
  11400.             !o1b2s0j1これ以上持てません！j0b5qc
  11401.         }
  11402.     }
  11403. #3
  11404. #4    I=22
  11405.     &if(青22==0){
  11406.         &if(%haveitem(青い鍵玉)==1){
  11407.             青22=1
  11408.             &jsr 青IN
  11409.             &jsr 扉開
  11410.         }&else{
  11411.             &pcm 18
  11412.             !o1b2s0j1使える鍵玉を持っていません！j0b5qc
  11413.         }
  11414.     }&else{
  11415.         &if(%rasthaveitem>0){
  11416.             青22=0
  11417.             &jsr 青OUT
  11418.             X=46
  11419.             Y=61
  11420.             &jsr 扉閉
  11421.         }&else{
  11422.             &pcm 18
  11423.             !o1b2s0j1これ以上持てません！j0b5qc
  11424.         }
  11425.     }
  11426. #5
  11427. #6    I=23
  11428.     &if(青23==0){
  11429.         &if(%haveitem(青い鍵玉)==1){
  11430.             青23=1
  11431.             &jsr 青IN
  11432.             &jsr 扉開
  11433.         }&else{
  11434.             &pcm 18
  11435.             !o1b2s0j1使える鍵玉を持っていません！j0b5qc
  11436.         }
  11437.     }&else{
  11438.         &if(%rasthaveitem>0){
  11439.             青23=0
  11440.             &jsr 青OUT
  11441.             X=10
  11442.             Y=29
  11443.             &jsr 扉閉
  11444.         }&else{
  11445.             &pcm 18
  11446.             !o1b2s0j1これ以上持てません！j0b5qc
  11447.         }
  11448.     }
  11449. #7
  11450. #8    I=24
  11451.     &if(赤21==0){
  11452.         &if(%haveitem(赤い鍵玉)==1){
  11453.             赤21=1
  11454.             &jsr 赤IN
  11455.             &if(青24==1){
  11456.                 &jsr 扉開
  11457.             }
  11458.         }&else{
  11459.             &pcm 18
  11460.             !o1b2s0j1使える鍵玉を持っていません！j0b5qc
  11461.         }
  11462.     }&else{
  11463.         &if(%rasthaveitem>0){
  11464.             赤21=0
  11465.             &jsr 赤OUT
  11466.             &if(青24==1){
  11467.                 X=30
  11468.                 Y=45
  11469.                 &jsr 扉閉
  11470.             }
  11471.         }&else{
  11472.             &pcm 18
  11473.             !o1b2s0j1これ以上持てません！j0b5qc
  11474.         }
  11475.     }
  11476. #9
  11477. #10    I=24
  11478.     &if(青24==0){
  11479.         &if(%haveitem(青い鍵玉)==1){
  11480.             青24=1
  11481.             &jsr 青IN
  11482.             &if(赤21==1){
  11483.                 &jsr 扉開
  11484.             }
  11485.         }&else{
  11486.             &pcm 18
  11487.             !o1b2s0j1使える鍵玉を持っていません！j0b5qc
  11488.         }
  11489.     }&else{
  11490.         &if(%rasthaveitem>0){
  11491.             青24=0
  11492.             &jsr 青OUT
  11493.             &if(赤21==1){
  11494.                 X=30
  11495.                 Y=45
  11496.                 &jsr 扉閉
  11497.             }
  11498.         }&else{
  11499.             &pcm 18
  11500.             !o1b2s0j1これ以上持てません！j0b5qc
  11501.         }
  11502.     }
  11503. #11
  11504. #12    I=25
  11505.     &if(赤22==0){
  11506.         &if(%haveitem(赤い鍵玉)==1){
  11507.             赤22=1
  11508.             &jsr 赤IN
  11509.             &if(青25==1){
  11510.                 &jsr 扉開
  11511.             }
  11512.         }&else{
  11513.             &pcm 18
  11514.             !o1b2s0j1使える鍵玉を持っていません！j0b5qc
  11515.         }
  11516.     }&else{
  11517.         &if(%rasthaveitem>0){
  11518.             赤22=0
  11519.             &jsr 赤OUT
  11520.             &if(青25==1){
  11521.                 X=62
  11522.                 Y=13
  11523.                 &jsr 扉閉
  11524.             }
  11525.         }&else{
  11526.             &pcm 18
  11527.             !o1b2s0j1これ以上持てません！j0b5qc
  11528.         }
  11529.     }
  11530. #13
  11531. #14    I=25
  11532.     &if(青25==0){
  11533.         &if(%haveitem(青い鍵玉)==1){
  11534.             青25=1
  11535.             &jsr 青IN
  11536.             &if(赤22==1){
  11537.                 &jsr 扉開
  11538.             }
  11539.         }&else{
  11540.             &pcm 18
  11541.             !o1b2s0j1使える鍵玉を持っていません！j0b5qc
  11542.         }
  11543.     }&else{
  11544.         &if(%rasthaveitem>0){
  11545.             青25=0
  11546.             &jsr 青OUT
  11547.             &if(赤22==1){
  11548.                 X=62
  11549.                 Y=13
  11550.                 &jsr 扉閉
  11551.             }
  11552.         }&else{
  11553.             &pcm 18
  11554.             !o1b2s0j1これ以上持てません！j0b5qc
  11555.         }
  11556.     }
  11557. #15    &if(宝26==0){
  11558.         宝=月の鎧
  11559.         宝敵=呪いのランプ
  11560.         敵数=2
  11561.         &jsr 敵宝箱
  11562.         &if(宝箱フラグ==1){
  11563.             宝26=1
  11564.         }
  11565.     }&else{
  11566.         &jsr 空
  11567.     }
  11568. #16    &if(宝27==0){
  11569.         宝=星のドレス
  11570.         宝敵=呪いのランプ
  11571.         敵数=1
  11572.         &jsr 敵宝箱
  11573.         &if(宝箱フラグ==1){
  11574.             宝27=1
  11575.         }
  11576.     }&else{
  11577.         &jsr 空
  11578.     }
  11579. #17    &if(宝28==0){
  11580.         宝=太陽のローブ
  11581.         宝敵=呪いのランプ
  11582.         敵数=2
  11583.         &jsr 敵宝箱
  11584.         &if(宝箱フラグ==1){
  11585.             宝28=1
  11586.         }
  11587.     }&else{
  11588.         &jsr 空
  11589.     }
  11590. #21    !o1s0開かない。qc
  11591. #22    !o1s0開かない。qc
  11592. #23    !o1s0開かない。qc
  11593. #24    !o1s0開かない。qc
  11594. #25    !o1s0開かない。qc
  11595. #26    !o1s0開かない。qc
  11596.  
  11597. #@0    &if(%direc<0){
  11598.         &jsr ワープ
  11599.         &goto2 遺跡１Ｆ,@11,%down
  11600.     }
  11601. #@1    &if(%direc<0){
  11602.         &se 13
  11603.         &move @2,%down
  11604.     }
  11605. #@2    &if(%direc<0){
  11606.         &se 13
  11607.         &move @1,%up
  11608.     }
  11609. #@3    &if(%direc<0){
  11610.         &se 13
  11611.         &move @4,%down
  11612.     }
  11613. #@4    &if(%direc<0){
  11614.         &se 13
  11615.         &move @3,%up
  11616.     }
  11617. #@5    &if(%direc<0){
  11618.         &se 13
  11619.         &move @6,%down
  11620.     }
  11621. #@6    &if(%direc<0){
  11622.         &se 13
  11623.         &move @5,%up
  11624.     }
  11625. #@7    &if(%direc<0){
  11626.         &se 13
  11627.         &move @8,%down
  11628.     }
  11629. #@8    &if(%direc<0){
  11630.         &se 13
  11631.         &move @7,%up
  11632.     }
  11633. #@9    &if(%direc<0){
  11634.         &se 13
  11635.         &move @10,%down
  11636.     }
  11637. #@10    &if(%direc<0){
  11638.         &se 13
  11639.         &move @9,%up
  11640.     }
  11641. #@11    &if(%direc<0){
  11642.         &jsr ワープ
  11643.         &goto2 遺跡３Ｆ,@0,%down
  11644.     }
  11645. #@12    &if(%direc<0){
  11646.         &jsr ワープ
  11647.         &goto2 遺跡１Ｆ,@13,%down
  11648.     }
  11649. #@13    &if(%direc<0){
  11650.         &se 13
  11651.         &move @14,%down
  11652.     }
  11653. #@14    &if(%direc<0){
  11654.         &se 13
  11655.         &move @13,%up
  11656.     }
  11657. #@15    &if(%direc<0){
  11658.         &se 13
  11659.         &move @16,%down
  11660.     }
  11661. #@16    &if(%direc<0){
  11662.         &se 13
  11663.         &move @15,%up
  11664.     }
  11665. #@17    &if(%direc<0){
  11666.         &jsr ワープ
  11667.         &goto2 遺跡１Ｆ,@12,%down
  11668.     }
  11669. #@30    &jsr 敵１
  11670.     &patternpal PAL\CG_C.PAL
  11671.     &switch(%rnd(6)){
  11672.     &case 0:
  11673.         &battle $0,35,コデビル,%rnd(3)+1
  11674.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ30==0){
  11675.             モ30=1
  11676.         }
  11677.         &break
  11678.     &case 1:
  11679.         &battle $0,35,スライム,%rnd(4)+1
  11680.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ29==0){
  11681.             モ29=1
  11682.         }
  11683.         &break
  11684.     &case 2:
  11685.         &battle $0,35,シニガミ,%rnd(3)+1
  11686.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ26==0){
  11687.             モ26=1
  11688.         }
  11689.         &break
  11690.     &case 3:
  11691.         &battle $0,35,ストンゴーレム,%rnd(2)+1
  11692.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ27==0){
  11693.             モ27=1
  11694.         }
  11695.         &break
  11696.     &case 4:
  11697.         &battle $0,35,コデビル,1,スライム,%rnd(2)+1
  11698.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ30==0){
  11699.             モ30=1
  11700.         }
  11701.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ29==0){
  11702.             モ29=1
  11703.         }
  11704.         &break
  11705.     &case 5:
  11706.         &battle $0,35,ストンゴーレム,1,コデビル,%rnd(2)+1
  11707.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ27==0){
  11708.             モ27=1
  11709.         }
  11710.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ30==0){
  11711.             モ30=1
  11712.         }
  11713.         &break
  11714.     }
  11715.     &jsr 戦闘後処理
  11716.  
  11717.  
  11718. //-------------------------------------------------------------------
  11719. [遺跡３Ｆ]
  11720. //-------------------------------------------------------------------
  11721.     &patternpal PAL\CG_C.PAL
  11722.     &mapsp SPP\ISEKI.SPP
  11723.     &mappal PAL\ISEKI.PAL
  11724.     &map MAP\ISEKI3F.MAP
  11725.     %partypoint={@0,%down}
  11726.  
  11727.     &if(Ａ<340){
  11728.         Ａ=340
  11729.     }
  11730.     &if(白31==0){
  11731.         %mandef(1)={$8,1,$00,%down,-1}    //鍵玉（白なし）
  11732.     }&else{
  11733.         %mandef(1)={$8,6,$86,%down,-1}    //鍵玉（白）
  11734.     }
  11735.     &if(赤31==0){
  11736.         %mandef(2)={$1,1,$00,%down,-1}    //鍵玉（赤なし）
  11737.     }&else{
  11738.         %mandef(2)={$1,6,$86,%down,-1}    //鍵玉（赤）
  11739.     }
  11740.     &if(青31==0){
  11741.         %mandef(3)={$4,1,$00,%down,-1}    //鍵玉（青なし）
  11742.     }&else{
  11743.         %mandef(3)={$4,6,$86,%down,-1}    //鍵玉（青）
  11744.     }
  11745.     &if(黒31==0){
  11746.         %mandef(4)={$9,1,$00,%down,-1}    //鍵玉（黒なし）
  11747.     }&else{
  11748.         %mandef(4)={$9,6,$86,%down,-1}    //鍵玉（黒）
  11749.     }
  11750.     &if(白31*赤31*青31*黒31){
  11751.         %mandef(10)={$4,7,$E3,%down,-1}    //ドア（開３）
  11752.         %manpoint(10)={200,200}
  11753.         %manpoint(1)={13,33}
  11754.         %manpoint(2)={15,35}
  11755.         %manpoint(3)={17,33}
  11756.         %manpoint(4)={15,31}
  11757.     }&else{
  11758.         %mandef(10)={$4,7,$E0,%down,-1}    //ドア（閉）
  11759.         %manpoint(10)={15,26}
  11760.         %manpoint(1)={13,34}
  11761.         %manpoint(2)={15,36}
  11762.         %manpoint(3)={17,34}
  11763.         %manpoint(4)={15,32}
  11764.     }
  11765.     &if(宝29==0){
  11766.         %mandef(5)={$E,1,$CA,%down,-1}    //宝箱（閉）
  11767.     }&else{
  11768.         %mandef(5)={$E,1,$CB,%down,-1}    //宝箱（開）
  11769.     }
  11770.     &on
  11771.  
  11772. #1    I=10
  11773.     &if(白31==0){
  11774.         &if(%haveitem(白い鍵玉)==1){
  11775.             白31=1
  11776.             %mandef(1)={$8,6,$86,%down,-1}    //鍵玉（白）
  11777.             &pcm 9
  11778.             &on
  11779.             &partyitemout 白い鍵玉
  11780.             &if(赤31*青31*黒31){
  11781.                 &pcm 19
  11782.                 %manpoint(1)={13,33}
  11783.                 %manpoint(2)={15,35}
  11784.                 %manpoint(3)={17,33}
  11785.                 %manpoint(4)={15,31}
  11786.                 &on
  11787.                 &jsr 扉開
  11788.             }
  11789.         }&else{
  11790.             &pcm 18
  11791.             !o1b2s0j1使える鍵玉を持っていません！j0b5qc
  11792.         }
  11793.     }&else{
  11794.         &if(%rasthaveitem>0){
  11795.             白31=0
  11796.             %mandef(1)={$8,1,$00,%down,-1}    //鍵玉（白なし）
  11797.             &pcm 10
  11798.             &on
  11799.             &partyitemin 白い鍵玉
  11800.             &if(赤31*青31*黒31){
  11801.                 X=15
  11802.                 Y=26
  11803.                 &jsr 扉閉
  11804.                 %manpoint(1)={13,34}
  11805.                 %manpoint(2)={15,36}
  11806.                 %manpoint(3)={17,34}
  11807.                 %manpoint(4)={15,32}
  11808.                 &on
  11809.             }
  11810.         }&else{
  11811.             &pcm 18
  11812.             !o1b2s0j1これ以上持てません！j0b5qc
  11813.         }
  11814.     }
  11815. #2    I=10
  11816.     &if(赤31==0){
  11817.         &if(%haveitem(赤い鍵玉)==1){
  11818.             赤31=1
  11819.             %mandef(2)={$1,6,$86,%down,-1}    //鍵玉（赤）
  11820.             &pcm 9
  11821.             &on
  11822.             &partyitemout 赤い鍵玉
  11823.             &if(白31*青31*黒31){
  11824.                 &pcm 19
  11825.                 %manpoint(1)={13,33}
  11826.                 %manpoint(2)={15,35}
  11827.                 %manpoint(3)={17,33}
  11828.                 %manpoint(4)={15,31}
  11829.                 &on
  11830.                 &jsr 扉開
  11831.             }
  11832.         }&else{
  11833.             &pcm 18
  11834.             !o1b2s0j1使える鍵玉を持っていません！j0b5qc
  11835.         }
  11836.     }&else{
  11837.         &if(%rasthaveitem>0){
  11838.             赤31=0
  11839.             %mandef(2)={$1,1,$00,%down,-1}    //鍵玉（赤なし）
  11840.             &pcm 10
  11841.             &on
  11842.             &partyitemin 赤い鍵玉
  11843.             &if(白31*青31*黒31){
  11844.                 X=15
  11845.                 Y=26
  11846.                 &jsr 扉閉
  11847.                 %manpoint(1)={13,34}
  11848.                 %manpoint(2)={15,36}
  11849.                 %manpoint(3)={17,34}
  11850.                 %manpoint(4)={15,32}
  11851.                 &on
  11852.             }
  11853.         }&else{
  11854.             &pcm 18
  11855.             !o1b2s0j1これ以上持てません！j0b5qc
  11856.         }
  11857.     }
  11858. #3    I=10
  11859.     &if(青31==0){
  11860.         &if(%haveitem(青い鍵玉)==1){
  11861.             青31=1
  11862.             %mandef(3)={$4,6,$86,%down,-1}    //鍵玉（青）
  11863.             &pcm 9
  11864.             &on
  11865.             &partyitemout 青い鍵玉
  11866.             &if(白31*赤31*黒31){
  11867.                 &pcm 19
  11868.                 %manpoint(1)={13,33}
  11869.                 %manpoint(2)={15,35}
  11870.                 %manpoint(3)={17,33}
  11871.                 %manpoint(4)={15,31}
  11872.                 &on
  11873.                 &jsr 扉開
  11874.             }
  11875.         }&else{
  11876.             &pcm 18
  11877.             !o1b2s0j1使える鍵玉を持っていません！j0b5qc
  11878.         }
  11879.     }&else{
  11880.         &if(%rasthaveitem>0){
  11881.             青31=0
  11882.             %mandef(3)={$4,1,$00,%down,-1}    //鍵玉（青なし）
  11883.             &pcm 10
  11884.             &on
  11885.             &partyitemin 青い鍵玉
  11886.             &if(白31*赤31*黒31){
  11887.                 X=15
  11888.                 Y=26
  11889.                 &jsr 扉閉
  11890.                 %manpoint(1)={13,34}
  11891.                 %manpoint(2)={15,36}
  11892.                 %manpoint(3)={17,34}
  11893.                 %manpoint(4)={15,32}
  11894.                 &on
  11895.             }
  11896.         }&else{
  11897.             &pcm 18
  11898.             !o1b2s0j1これ以上持てません！j0b5qc
  11899.         }
  11900.     }
  11901. #4    I=10
  11902.     &if(黒31==0){
  11903.         &if(%haveitem(黒い鍵玉)==1){
  11904.             黒31=1
  11905.             %mandef(4)={$9,6,$86,%down,-1}    //鍵玉（黒）
  11906.             &pcm 9
  11907.             &on
  11908.             &partyitemout 黒い鍵玉
  11909.             &if(白31*赤31*青31){
  11910.                 &pcm 19
  11911.                 %manpoint(1)={13,33}
  11912.                 %manpoint(2)={15,35}
  11913.                 %manpoint(3)={17,33}
  11914.                 %manpoint(4)={15,31}
  11915.                 &on
  11916.                 &jsr 扉開
  11917.             }
  11918.         }&else{
  11919.             &pcm 18
  11920.             !o1b2s0j1使える鍵玉を持っていません！j0b5qc
  11921.         }
  11922.     }&else{
  11923.         &if(%rasthaveitem>0){
  11924.             黒31=0
  11925.             %mandef(4)={$9,1,$00,%down,-1}    //鍵玉（黒なし）
  11926.             &pcm 10
  11927.             &on
  11928.             &partyitemin 黒い鍵玉
  11929.             &if(白31*赤31*青31){
  11930.                 X=15
  11931.                 Y=26
  11932.                 &jsr 扉閉
  11933.                 %manpoint(1)={13,34}
  11934.                 %manpoint(2)={15,36}
  11935.                 %manpoint(3)={17,34}
  11936.                 %manpoint(4)={15,32}
  11937.                 &on
  11938.             }
  11939.         }&else{
  11940.             &pcm 18
  11941.             !o1b2s0j1これ以上持てません！j0b5qc
  11942.         }
  11943.     }
  11944. #5    &if(宝29==0){
  11945.         宝=赤い鍵玉
  11946.         宝敵=呪いのランプ
  11947.         敵数=3
  11948.         &jsr 敵宝箱
  11949.         &if(宝箱フラグ==1){
  11950.             宝29=1
  11951.         }
  11952.     }&else{
  11953.         &jsr 空
  11954.     }
  11955. #10    !o1s0開かない。qc
  11956.  
  11957. #@0    &if(%direc<0){
  11958.         &jsr ワープ
  11959.         &goto2 遺跡２Ｆ,@11,%down
  11960.     }
  11961. #@1    &if(%direc<0){
  11962.         &se 13
  11963.         &goto2 転送,@0,%up
  11964.     }
  11965. #@30    &jsr 敵１
  11966.     &patternpal PAL\CG_C.PAL
  11967.     &switch(%rnd(4)){
  11968.     &case 0:
  11969.         &battle $0,35,コデビル,%rnd(2)+1,ストンゴーレム,%rnd(2)+1
  11970.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ30==0){
  11971.             モ30=1
  11972.         }
  11973.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ27==0){
  11974.             モ27=1
  11975.         }
  11976.         &break
  11977.     &case 1:
  11978.         &battle $0,35,スライム,%rnd(5)+2
  11979.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ29==0){
  11980.             モ29=1
  11981.         }
  11982.         &break
  11983.     &case 2:
  11984.         &battle $0,35,スライム,%rnd(2)+1,コデビル,%rnd(2)+1,スライム,%rnd(2)+2
  11985.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ29==0){
  11986.             モ29=1
  11987.         }
  11988.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ30==0){
  11989.             モ30=1
  11990.         }
  11991.         &break
  11992.     &case 3:
  11993.         &battle $0,35,ストンゴーレム,%rnd(2)+2
  11994.         &if(%exitcode==0 and %haveitem(モンスター図鑑)==1 and モ27==0){
  11995.             モ27=1
  11996.         }
  11997.         &break
  11998.     }
  11999.     &jsr 戦闘後処理
  12000.  
  12001.  
  12002. //-------------------------------------------------------------------
  12003. [転送]
  12004. //-------------------------------------------------------------------
  12005.     &patternpal PAL\CG_E.PAL
  12006.     &mapsp SPP\TENSOU.SPP
  12007.     &mappal PAL\TENSOU.PAL
  12008.     &map MAP\TENSOU.MAP
  12009.     %partypoint={@0,%up}
  12010.     &if(%nowbgm!=28){
  12011.         &bgm 28
  12012.     }
  12013.  
  12014.     &if(Ａ<360){
  12015.         Ａ=360
  12016.     }
  12017.     &on
  12018.  
  12019. #@0    &if(%direc<0){
  12020.         &se 13
  12021.         &goto2 遺跡３Ｆ,@1,%down
  12022.     }
  12023. #@2    &bgm 30
  12024.     &partymove 6,2,4,4,8,8,6,2,4,8,6,2,4,8,6,2
  12025.     &jsr ４人
  12026.     &wait 15
  12027.     &freash 28528
  12028.     &monsprint 104,0,光_A0
  12029.     &monsprint 104,0,光_A1
  12030.     &monsprint 104,0,光_A2
  12031.     &monsprint 104,0,光_A3
  12032.     &monsprint 104,0,光_A4
  12033.     &monsprint 104,0,光_A5
  12034.     &monsprint 104,0,光_A6
  12035.     &monsprint 104,0,光_A7
  12036.     &monsprint 104,0,光_A8
  12037.     &monsprint 104,0,光_A9
  12038.     &jsr 光
  12039.     &partyset 0
  12040.     &on
  12041.     &jsr 光
  12042.     &partyset A,B,C,D
  12043.     &on
  12044.     &jsr 光
  12045.     &partyset 0
  12046.     &on
  12047.     &contrast 0
  12048.     &jsr 光
  12049.     &jsr 光
  12050.     &jsr 光
  12051.     &jsr 光
  12052.     &monsprint 104,0,光消し
  12053.     &goto 遺跡２
  12054.  
  12055.  
  12056. //-------------------------------------------------------------------
  12057. [衛星]
  12058. //-------------------------------------------------------------------
  12059.     &mapsp SPP\EISEI.SPP
  12060.     &mappal PAL\EISEI.PAL
  12061.     &map MAP\EISEI.MAP
  12062.     %partypoint={@0,%down}
  12063.     &partyset A,B,C,D
  12064.     &bgm 24
  12065.  
  12066.     %mandef(1)={$2,6,$80,%down,-1}    //赤珠
  12067.     %mandef(2)={$2,6,$80,%down,-1}    //赤珠
  12068.     %mandef(3)={$2,6,$80,%down,-1}    //赤珠
  12069.     %mandef(4)={$2,6,$80,%down,-1}    //赤珠
  12070.     %mandef(5)={$3,7,$C8,%down,0}    //コンソール（左）
  12071.     %mandef(6)={$3,7,$CC,%down,0}    //コンソール（右）
  12072.     %mandef(7)={$C,6,$A0,%up,0}    //白猫（立ち）
  12073.     %mandef(8)={$F,7,$A0,%up,0}    //モンスター
  12074.     %mandef(9)={$F,7,$A0,%up,0}    //モンスター
  12075.     %mandef(10)={$F,7,$A0,%up,0}    //モンスター
  12076.     %mandef(11)={$B,0,$AF,%down,-1}    //！
  12077.     %manpoint(8)={100,100}
  12078.     %manpoint(9)={100,100}
  12079.     %manpoint(10)={100,100}
  12080.     %manpoint(11)={100,100}
  12081.     &on
  12082.  
  12083.     &manmove 5,-2,-2
  12084.     !o1b0s0j2|4:b5s20j0「へえ、こんな物が本当に浮いてるのかぁ？p
  12085.     !o1b0s0j2|5:b5s21j0「信じられないわね。p
  12086.     !o1b0s0j2|2:b5s20j0「そんなことより、白ネコは？qcs0
  12087.  
  12088. #1
  12089. #2
  12090. #3
  12091. #4
  12092. #5
  12093. #6
  12094. #7
  12095.  
  12096. #@0    &if(%direc<0){
  12097.         &if(Ａ==400){
  12098.             &jsr 闇
  12099.             &goto 遺跡１Ｆ
  12100.         }&else{
  12101.             !o1b0s0j2|2:b5s20j0「おい、ここまで来て帰るのかよ。pcs0
  12102.             &partymove 8,8,8,8,8,8,8,8,8
  12103.         }
  12104. //        &goto2 転送,@2,%down
  12105.     }
  12106. #@1    &if(%direc<0){
  12107.         &if(Ａ==400){
  12108.             &&
  12109.         }&else{
  12110.             &partyspeed 1
  12111.             !o1b0s0j2|6:b5s20j0「・・・ネコ！p
  12112.             %manpoint(11)={31,35}
  12113.             &on
  12114.             &pcm 22
  12115.             !o1b0s0j2白ネコ:b5s21j0「は！p;
  12116.             %manpoint(11)={100,100}
  12117.             &on
  12118.             &manmove 7,-2
  12119.             !ど、どうやって！？pc
  12120.             &partymove 8,8
  12121.             !o1b0s0j2|2:b5s20j0「そんなことは、どうだっていいだろ！pc
  12122.             %mandef(7)={$C,6,$A0,%down,-1}    //白猫（立ち）
  12123.             %manpoint(7)={31,36}
  12124.             %manpoint(11)={31,34}
  12125.             &on
  12126.             &pcm 22
  12127.             &wait 10
  12128.             %mandef(7)={$C,6,$A0,%down,0}    //白猫（立ち）
  12129.             %manpoint(7)={31,37}
  12130.             %manpoint(11)={31,35}
  12131.             &on
  12132.             !o1b0s0j2白ネコ:b5s21j0「その声は！p
  12133.             %manpoint(11)={100,100}
  12134.             &on
  12135.             !o1b0s0j2|2:b5s20j0「ははは、驚いたか！p
  12136.             !o1b0s0j2白ネコ:b5s21j0「・・・そ、そうですか。まあ、いいでしょう・・・。p;
  12137.             !ちょうど、今、操作の仕方が解ったところです。あなた達には実験台になって頂きましょう。pc
  12138.             &manmove 7,-8
  12139.             &pcm 25
  12140.             &wait 40
  12141.             &pcm 25
  12142.             &wait 10
  12143.             &pcm 25
  12144.             &wait 25
  12145.             &pcm 23
  12146.             !o1b0s0j2白ネコ:b5s21j0「召喚！pc
  12147.             &pcm 19
  12148.             %manpoint(8)={31,41}
  12149.             &on
  12150.             &wait 20
  12151.             %manpoint(8)={100,100}
  12152.             &on
  12153.             &wait 10
  12154.             %manpoint(8)={31,41}
  12155.             &on
  12156.             &pcm 19
  12157.             %manpoint(9)={26,39}
  12158.             &on
  12159.             &wait 20
  12160.             %manpoint(9)={100,100}
  12161.             &on
  12162.             &wait 10
  12163.             %manpoint(9)={26,39}
  12164.             &on
  12165.             &pcm 19
  12166.             %manpoint(10)={36,39}
  12167.             &on
  12168.             &wait 20
  12169.             %manpoint(10)={100,100}
  12170.             &on
  12171.             &wait 10
  12172.             %manpoint(10)={36,39}
  12173.             &on
  12174.             &manmove 7,-2
  12175.             &manmove 5,-2,-2
  12176.             !o1b0s0j2白ネコ:b5s21j0「さあ、お前達の力を見せてあげるのです。p
  12177.             !o1b0s0j2？？？:b5s20j0「・・・・・・。p
  12178.             !o1b0s0j2白ネコ:b5s21j0「どうしたのです？言っていることが分からないのですか？p
  12179.             !o1b0s0j2？？？:b5s20j0「ふふふ。我らを呼び出したのは、お前か。
  12180.             !解放してもらったことには礼を言おう。p;
  12181.             !だが、お前に命令される覚えはないな。p
  12182.             !o1b0s0j2白ネコ:b5s21j0「な、何を言っている・・・。p
  12183.             !o1b0s0j2？？？:b5s20j0「ゲ・イ・ト！
  12184.             &se 3
  12185.             !pc
  12186.             &blackcircle 1
  12187.             %bcirclesize=130
  12188.             &pcm 26
  12189.             &on
  12190.             &freash 1
  12191.             %manpoint(7)={100,100}
  12192.             &on
  12193.             &wait 10
  12194.             %manpoint(7)={31,37}
  12195.             &on
  12196.             %bcirclesize=115
  12197.             &pcm 27
  12198.             &on
  12199.             &freash 1
  12200.             %manpoint(7)={100,100}
  12201.             &on
  12202.             &wait 10
  12203.             %manpoint(7)={31,37}
  12204.             &on
  12205.             %bcirclesize=100
  12206.             &pcm 28
  12207.             &on
  12208.             &freash 1
  12209.             %manpoint(7)={100,100}
  12210.             &on
  12211.             &wait 10
  12212.             %manpoint(7)={31,37}
  12213.             &on
  12214.             %bcirclesize=85
  12215.             &pcm 29
  12216.             &on
  12217.             &freash 1
  12218.             %manpoint(7)={100,100}
  12219.             &on
  12220.             &wait 10
  12221.             %manpoint(7)={31,37}
  12222.             &on
  12223.             %bcirclesize=70
  12224.             &pcm 30
  12225.             &on
  12226.             !o1b0s0j2白ネコ:b5s21j0「う、うわぁ～～～～～～～～～！！pc
  12227.             &pcm 31
  12228.             &contrast 0
  12229.             &freash 1
  12230.             &se 4
  12231.             %manpoint(7)={100,100}
  12232.             &on
  12233.             &wait 10
  12234.             %manpoint(7)={31,37}
  12235.             &on
  12236.             &wait 5
  12237.             %manpoint(7)={100,100}
  12238.             &on
  12239.             &blackcircle 0
  12240.             &contrast 15
  12241.             &manmove 5,-2,-2,-2,-2,-2
  12242.             !o1b0s0j2|2:b5s20j0「・・・・・・。p
  12243.             !o1b0s0j2？？？:b5s20j0「くだらんことに多くの魔力を使ってしまったわ。p;
  12244.             !この甦ったばかりの身体には、ちと・・・。p;
  12245.             &manmove 8,-2
  12246.             !おや、まだ仲間がいたか。p
  12247.             &manmove 9,-2
  12248.             &manmove 10,-2
  12249.             !o1b0s0j2？？？:b5s20j0「ふふふ、鈍った身体には、調度良い運動になるな。pcs0
  12250.             &patternpal PAL\CG_B.PAL
  12251.             &battle $1000,35,ミネス,1,ポタ,1,クラム,1
  12252.             &jsr 戦闘後処理
  12253.             !o1b0s0j2ポタ:b5s20j0「ほほう、なかなかやるではないか。p
  12254.             !o1b0s0j2ミネス:b4s21j0「おい、こんなこーとを、していーる場合では、なーいのでは、なーいのか？p
  12255.             !o1b0s0j2クラム:b7s22j0「そうだぁ、そうだぁ、そうだぁ。p
  12256.             !o1b0s0j2ポタ:b5s20j0「そうであったな。我らにはやるべきことがあったのだ。pc
  12257.             &se 3
  12258.             &wait 30
  12259.             %mandef(8)={$F,7,$A0,%down,0}    //モンスター
  12260.             %mandef(9)={$F,7,$A0,%down,0}    //モンスター
  12261.             %mandef(10)={$F,7,$A0,%down,0}    //モンスター
  12262.             &se 4
  12263.             %manpoint(8)={100,100}
  12264.             &on
  12265.             &wait 10
  12266.             %manpoint(8)={31,41}
  12267.             &on
  12268.             &wait 5
  12269.             %manpoint(8)={100,100}
  12270.             &on
  12271.             &manmove 5,-2,-2
  12272.             &se 3
  12273.             &wait 30
  12274.             &se 4
  12275.             %manpoint(9)={100,100}
  12276.             %manpoint(10)={100,100}
  12277.             &on
  12278.             &wait 10
  12279.             %manpoint(9)={26,39}
  12280.             %manpoint(10)={36,39}
  12281.             &on
  12282.             &wait 5
  12283.             %manpoint(9)={100,100}
  12284.             %manpoint(10)={100,100}
  12285.             &on
  12286.             &manmove 5,-2,-2,-2,-2,-2,-2,-2
  12287.             !o1b0s0j2|4:b5s20j0「なんだったんだ、あいつら。p
  12288.             !o1b0s0j2|5:b5s21j0「やるべきことって何かしら？p
  12289.             !o1b0s0j2|6:b10s20j0「・・・ネコ。p
  12290.             !o1b0s0j2|2:b5s20j0「あ、そうだった。白ネコの奴はどこに飛ばされたんだ？pc
  12291.             &partymove 8,8,8,8,8,8,8,8,-6,-4,-8
  12292.             &partyspeed 2
  12293.             !o1b0s0j2|2:b5s20j0「竜の涙がない。やっぱり一緒に飛ばされたのか・・・。p;
  12294.             !はあ。また、あの白ネコを探さないといけないのか・・・。pcs0
  12295.             Ａ=400
  12296.             &bgm 47
  12297.         }
  12298.     }
  12299.  
  12300.  
  12301. //-------------------------------------------------------------------
  12302. [橋]
  12303. //-------------------------------------------------------------------
  12304.     &mapsp SPP\TAKI.SPP
  12305.     &mappal PAL\TAKI.PAL
  12306.     &map MAP\HASI.MAP
  12307.     &jsr 大
  12308.     %partypoint={@1,-%left}
  12309.     &bgm 15
  12310.  
  12311.     %mandef(1)={$F,3,$40,%right,0}    //兵１
  12312.     %mandef(2)={$F,3,$40,%right,0}    //兵１
  12313.     &on
  12314.  
  12315. #1    !o1s23「第９７回ユニバニア王主催イベント『かくれんぼ』の開催中だ。qcs0
  12316. #2    !o1s23「只今、ここから先は立入禁止になってます。qcs0
  12317.  
  12318. #@0    &if(%direc<0){
  12319.         &se 30
  12320.         &goto2 フィールド,@16,%down
  12321.     }
  12322. #@2    &if(%direc<0){
  12323.         &se 30
  12324.         &goto2 フィールド,@17,%down
  12325.     }
  12326. #@4    &if(%direc<0){
  12327.         &if(%py==14){
  12328.             &manmove 1,-2
  12329.             &manmove 2,-8
  12330.         }&else{
  12331.             &if(%py<14){
  12332.                 &manmove 1,-8
  12333.                 &manmove 2,-8
  12334.             }&else{
  12335.                 &manmove 2,-2
  12336.                 &manmove 1,-2
  12337.             }
  12338.         }
  12339.         !o1s23「立入禁止だっ！！qcs0
  12340.         &partymove 6,6,6,6
  12341.         &manmove 1,-6
  12342.         &manmove 2,-6
  12343.     }
  12344.  
  12345.  
  12346. //-------------------------------------------------------------------
  12347. [滝ダＢ１]
  12348. //-------------------------------------------------------------------
  12349.     &mapsp SPP\TAKI_D.SPP
  12350.     &mappal PAL\TAKI_D.PAL
  12351.     &map MAP\TAKI_DB1.MAP
  12352.     %partypoint={@0,%down}
  12353.     &if(%nowbgm!=32){
  12354.         %bcirclesize=16
  12355.         &bgm 32
  12356.         I=100
  12357.     }
  12358.     &blackcircle 1
  12359.  
  12360.     &if(宝36==0){
  12361.         %mandef(1)={$1,1,$CA,%down,-1}    //宝箱（閉）
  12362.     }&else{
  12363.         %mandef(1)={$1,1,$CB,%down,-1}    //宝箱（開）
  12364.     }
  12365.     &if(宝37==0){
  12366.         %mandef(2)={$1,1,$CA,%down,-1}    //宝箱（閉）
  12367.     }&else{
  12368.         %mandef(2)={$1,1,$CB,%down,-1}    //宝箱（開）
  12369.     }
  12370.     &if(宝38==0){
  12371.         %mandef(3)={$1,1,$CA,%down,-1}    //宝箱（閉）
  12372.     }&else{
  12373.         %mandef(3)={$1,1,$CB,%down,-1}    //宝箱（開）
  12374.     }
  12375.     &monsprint 84,100,Ｂ０１
  12376.     &on
  12377.     &if(I==100){
  12378.         &jsr ライト
  12379.         I=0
  12380.     }
  12381.     &wait 15
  12382.     &monsprint 84,100,Ｂ１１
  12383.     &wait 10
  12384.     &monsprint 84,100,Ｂ００
  12385.  
  12386. #1    &if(宝36==0){
  12387.         宝=アルキバの帽子
  12388.         &jsr 宝箱大
  12389.         &if(宝箱フラグ==1){
  12390.             宝36=1
  12391.         }
  12392.     }&else{
  12393.         &jsr 空
  12394.     }
  12395. #2    &if(宝37==0){
  12396.         宝=ペテルギウスの兜
  12397.         &jsr 宝箱大
  12398.         &if(宝箱フラグ==1){
  12399.             宝37=1
  12400.         }
  12401.     }&else{
  12402.         &jsr 空
  12403.     }
  12404. #3    &if(宝38==0){
  12405.         宝=カペラの冠
  12406.         &jsr 宝箱大
  12407.         &if(宝箱フラグ==1){
  12408.             宝38=1
  12409.         }
  12410.     }&else{
  12411.         &jsr 空
  12412.     }
  12413.  
  12414. #@1    &if(%direc<0){
  12415.         &jsr 落ちる
  12416.         &goto2 滝ダＢ２,@10,%down
  12417.     }
  12418. #@2    &if(%direc<0){
  12419.         &jsr 落ちる
  12420.         &goto2 滝ダＢ２,@0,%down
  12421.     }
  12422. #@3    &if(%direc<0){
  12423.         &se 26
  12424.         &goto2 滝ダＢ２,@2,%down
  12425.     }
  12426. #@4    &if(%direc<0){
  12427.         &se 26
  12428.         &goto2 滝ダＢ２,@4,%down
  12429.     }
  12430. #@40    &jsr 敵１
  12431.     &patternpal PAL\CG_D.PAL
  12432.     &switch(%rnd(4)){
  12433.     &case 0:
  12434.         &battle $0,35,炎の根,%rnd(2)+2
  12435.         &break
  12436.     &case 1:
  12437.         &battle $0,35,炎の葉,%rnd(2)+2
  12438.         &break
  12439.     &case 2:
  12440.         &battle $0,35,ダッピー,%rnd(2)+2
  12441.         &break
  12442.     &case 3:
  12443.         &battle $0,35,ガラガラ,%rnd(2)+2
  12444.         &break
  12445.     }
  12446.     &jsr 戦闘後処理
  12447.  
  12448.  
  12449. //-------------------------------------------------------------------
  12450. [滝ダＢ２]
  12451. //-------------------------------------------------------------------
  12452.     &map MAP\TAKI_DB2.MAP
  12453.     %partypoint={@0,%down}
  12454.     &blackcircle 1
  12455.  
  12456.     &if(宝39==0){
  12457.         %mandef(1)={$1,1,$CA,%down,-1}    //宝箱（閉）
  12458.     }&else{
  12459.         %mandef(1)={$1,1,$CB,%down,-1}    //宝箱（開）
  12460.     }
  12461.     &if(宝40==0){
  12462.         %mandef(2)={$1,1,$CA,%down,-1}    //宝箱（閉）
  12463.     }&else{
  12464.         %mandef(2)={$1,1,$CB,%down,-1}    //宝箱（開）
  12465.     }
  12466.     &if(宝41==0){
  12467.         %mandef(3)={$1,1,$CA,%down,-1}    //宝箱（閉）
  12468.     }&else{
  12469.         %mandef(3)={$1,1,$CB,%down,-1}    //宝箱（開）
  12470.     }
  12471.     &if(宝42==0){
  12472.         %mandef(4)={$1,1,$CA,%down,-1}    //宝箱（閉）
  12473.     }&else{
  12474.         %mandef(4)={$1,1,$CB,%down,-1}    //宝箱（開）
  12475.     }
  12476.     &monsprint 84,100,Ｂ０２
  12477.     &on
  12478.     &wait 15
  12479.     &monsprint 84,100,Ｂ１２
  12480.     &wait 10
  12481.     &monsprint 84,100,Ｂ００
  12482.  
  12483. #1    &if(宝39==0){
  12484.         宝=アルタイルの盾
  12485.         &jsr 宝箱大
  12486.         &if(宝箱フラグ==1){
  12487.             宝39=1
  12488.         }
  12489.     }&else{
  12490.         &jsr 空
  12491.     }
  12492. #2    &if(宝40==0){
  12493.         宝=ベガのペンダント
  12494.         &jsr 宝箱大
  12495.         &if(宝箱フラグ==1){
  12496.             宝40=1
  12497.         }
  12498.     }&else{
  12499.         &jsr 空
  12500.     }
  12501. #3    &if(宝41==0){
  12502.         宝=デネブの指輪
  12503.         &jsr 宝箱大
  12504.         &if(宝箱フラグ==1){
  12505.             宝41=1
  12506.         }
  12507.     }&else{
  12508.         &jsr 空
  12509.     }
  12510. #4    &if(宝42==0){
  12511.         宝==プロキオンローブ
  12512.         &jsr 宝箱大
  12513.         &if(宝箱フラグ==1){
  12514.             宝42=1
  12515.         }
  12516.     }&else{
  12517.         &jsr 空
  12518.     }
  12519.  
  12520. #@1    &if(%direc<0){
  12521.         &se 25
  12522.         &goto2 滝ダＢ１,@5,%down
  12523.     }
  12524. #@3    &if(%direc<0){
  12525.         &se 25
  12526.         &goto2 滝ダＢ１,@6,%down
  12527.     }
  12528. #@5    &if(%direc<0){
  12529.         &se 26
  12530.         &goto2 滝ダＢ３,@2,%down
  12531.     }
  12532. #@7    &if(%direc<0){
  12533.         &se 26
  12534.         &goto2 滝ダＢ３,@4,%down
  12535.     }
  12536. #@9    &if(%direc<0){
  12537.         &jsr 落ちる
  12538.         &goto2 滝ダＢ３,@0,%down
  12539.     }
  12540. #@40    &jsr 敵１
  12541.     &patternpal PAL\CG_D.PAL
  12542.     &switch(%rnd(3)){
  12543.     &case 0:
  12544.         &battle $0,35,チビウィッチ,%rnd(2)+2
  12545.         &break
  12546.     &case 1:
  12547.         &battle $0,35,コガネコウモリ,%rnd(5)+2
  12548.         &break
  12549.     &case 2:
  12550.         &battle $0,35,ホタル足,%rnd(2)+2
  12551.         &break
  12552.     }
  12553.     &jsr 戦闘後処理
  12554. #@41    &jsr 敵１
  12555.     &patternpal PAL\CG_D.PAL
  12556.     &switch(%rnd(4)){
  12557.     &case 0:
  12558.         &battle $0,35,チビウィッチ,%rnd(2)+2
  12559.         &break
  12560.     &case 1:
  12561.         &battle $0,35,熱帯魚,%rnd(3)+2
  12562.         &break
  12563.     &case 2:
  12564.         &battle $0,35,ホタル足,%rnd(2)+2
  12565.         &break
  12566.     &case 3:
  12567.         &battle $0,35,熱帯魚,%rnd(2)+2
  12568.         &break
  12569.     }
  12570.     &jsr 戦闘後処理
  12571.  
  12572.  
  12573. //-------------------------------------------------------------------
  12574. [滝ダＢ３]
  12575. //-------------------------------------------------------------------
  12576.     &map MAP\TAKI_DB3.MAP
  12577.     %partypoint={@0,%down}
  12578.     &blackcircle 1
  12579.  
  12580.     &if(宝43==0){
  12581.         %mandef(1)={$1,1,$CA,%down,-1}    //宝箱（閉）
  12582.     }&else{
  12583.         %mandef(1)={$1,1,$CB,%down,-1}    //宝箱（開）
  12584.     }
  12585.     &if(宝44==0){
  12586.         %mandef(2)={$1,1,$CA,%down,-1}    //宝箱（閉）
  12587.     }&else{
  12588.         %mandef(2)={$1,1,$CB,%down,-1}    //宝箱（開）
  12589.     }
  12590.     &monsprint 84,100,Ｂ０３
  12591.     &on
  12592.     &wait 15
  12593.     &monsprint 84,100,Ｂ１３
  12594.     &wait 10
  12595.     &monsprint 84,100,Ｂ００
  12596.  
  12597. #1    &if(宝43==0){
  12598.         宝=スピカのドレス
  12599.         &jsr 宝箱大
  12600.         &if(宝箱フラグ==1){
  12601.             宝43=1
  12602.         }
  12603.     }&else{
  12604.         &jsr 空
  12605.     }
  12606. #2    &if(宝44==0){
  12607.         宝=レグルスの鎧
  12608.         &jsr 宝箱大
  12609.         &if(宝箱フラグ==1){
  12610.             宝44=1
  12611.         }
  12612.     }&else{
  12613.         &jsr 空
  12614.     }
  12615.  
  12616. #@1    &if(%direc<0){
  12617.         &se 25
  12618.         &goto2 滝ダＢ２,@6,%down
  12619.     }
  12620. #@3    &if(%direc<0){
  12621.         &se 25
  12622.         &goto2 滝ダＢ２,@8,%down
  12623.     }
  12624. #@5    &if(%direc<0){
  12625.         &se 26
  12626.         &goto2 滝ダＢ４,@0,%down
  12627.     }
  12628. #@40    &jsr 敵１
  12629.     &patternpal PAL\CG_D.PAL
  12630.     &switch(%rnd(4)){
  12631.     &case 0:
  12632.         &battle $0,35,熱病菌,%rnd(4)+2
  12633.         &break
  12634.     &case 1:
  12635.         &battle $0,35,穴ゴブリン,%rnd(4)+2
  12636.         &break
  12637.     &case 2:
  12638.         &battle $0,35,温泉ワーム,%rnd(2)+1
  12639.         &break
  12640.     &case 3:
  12641.         &battle $0,35,メイジタタミン,%rnd(2)+1
  12642.         &break
  12643.     }
  12644.     &jsr 戦闘後処理
  12645. #@41    &jsr 敵１
  12646.     &switch(%rnd(4)){
  12647.     &case 0:
  12648.         &patternpal PAL\CG_D.PAL
  12649.         &battle $0,35,熱病菌,%rnd(4)+2
  12650.         &break
  12651.     &case 1:
  12652.         &patternpal PAL\CG_D.PAL
  12653.         &battle $0,35,熱帯魚,%rnd(3)+2
  12654.         &break
  12655.     &case 2:
  12656.         &patternpal PAL\CG_D.PAL
  12657.         &battle $0,35,温泉ワーム,%rnd(2)+1
  12658.         &break
  12659.     &case 3:
  12660.         &patternpal PAL\CG_C.PAL
  12661.         &battle $0,35,イカ大王,%rnd(2)+1
  12662.         &break
  12663.     }
  12664.     &jsr 戦闘後処理
  12665.  
  12666.  
  12667. //-------------------------------------------------------------------
  12668. [滝ダＢ４]
  12669. //-------------------------------------------------------------------
  12670.     &mapsp SPP\TAKI_D.SPP
  12671.     &mappal PAL\TAKI_D.PAL
  12672.     &map MAP\TAKI_DB4.MAP
  12673.     %partypoint={@0,%down}
  12674.     &if(%nowbgm!=32){
  12675.         %bcirclesize=16
  12676.         &bgm 32
  12677.         I=100
  12678.     }
  12679.     &blackcircle 1
  12680.  
  12681.     &if(宝45==0){
  12682.         %mandef(1)={$1,1,$CA,%down,-1}    //宝箱（閉）
  12683.     }&else{
  12684.         %mandef(1)={$1,1,$CB,%down,-1}    //宝箱（開）
  12685.     }
  12686.     &monsprint 84,100,Ｂ０４
  12687.     &on
  12688.     &if(I==100){
  12689.         &jsr ライト
  12690.     }
  12691.     &wait 15
  12692.     &monsprint 84,100,Ｂ１４
  12693.     &wait 10
  12694.     &monsprint 84,100,Ｂ００
  12695.  
  12696. #1    &if(宝45==0){
  12697.         宝=カノープスマント
  12698.         &jsr 宝箱大
  12699.         &if(宝箱フラグ==1){
  12700.             宝45=1
  12701.         }
  12702.     }&else{
  12703.         &jsr 空
  12704.     }
  12705. #100    &jsr 装備切り換え
  12706.     &bgm 32
  12707.     !o1b0s0j2ネビュラソード:b5s19j0「ほな、がんばりなはれ。qcs0
  12708.  
  12709. #@1    &if(%direc<0){
  12710.         &se 25
  12711.         &goto2 滝ダＢ３,@6,%down
  12712.     }
  12713. #@3    &if(%direc<0){
  12714.         &se 26
  12715.         &goto2 滝ダＢ５,@4,%down
  12716.     }
  12717. #@5    &if(%direc<0){
  12718.         &se 26
  12719.         &goto2 滝ダＢ５,@2,%down
  12720.     }
  12721. #@7    &if(%direc<0){
  12722.         &se 26
  12723.         &goto2 滝ダＢ５,@6,%down
  12724.     }
  12725. #@8    &if(%direc==8){
  12726.         &link @12
  12727.     }
  12728. #@9    &if(%direc==2){
  12729.         &link @12
  12730.     }
  12731. #@10    &if(%direc==4){
  12732.         &link @12
  12733.     }
  12734. #@11    &if(%direc==6){
  12735.         &link @12
  12736.     }
  12737. #@12    &if(ネビュラ==1){
  12738.         !o1b0s0j2|2:b5s20j0「あれ、これネビュラソードだよな。p
  12739.         !o1b0s0j2|4:b5s20j0「どうやら、幻みたいだな。p
  12740.         !o1b0s0j2|2:b5s20j0「ホログラフか・・・。p
  12741.         !o1b0s0j2？？？:b4s19j0「ふぁ～あ～。待ちくたびれたわ。p
  12742.         !o1b0s0j2|2:b5s20j0「なんだなんだ？喋ったのはこの剣か？p
  12743.         !o1b0s0j2ネビュラソード:b2s19j0「なんや？剣が喋って何が悪い。
  12744.         !それにわいにはネビュラっちゅう立派な名前があるんや。ちゃんと名前で呼ばんかい。p
  12745.         !o1b0s0j2|2:b5s20j0「・・・・・・。p
  12746.         !o1b0s0j2|5:b5s21j0「あのネビュラさん、判ったからもう少しゆっくり話してくれないかしら。p
  12747.         !o1b0s0j2|6:b5s20j0「・・・かしら。p
  12748.         !o1b0s0j2ネビュラソード:b4s19j0「おっと悪かったな。p;わいは星雲の鍵の所持者、
  12749.         !つまりわいを地上に刺したお前さん達の手助けをするためにここにいるんや。p;
  12750.         &freash 29346
  12751.         &complete
  12752.         !ほれ、回復したやろ。旅の記録も出来るで。!地上に送り返すことも出来る。p;
  12753.         !どや、すごいやろ。p
  12754.         !o1b0s0j2|2:b5s20j0「その喋り方何とかなんないのか？p
  12755.         !o1b0s0j2ネビュラソード:b4s19j0「・・・余計なお世話や。p
  12756.         !o1b0s0j2|4:b5s20j0「このダンジョンには何があるんだ？p
  12757.         !o1b0s0j2ネビュラソード:b4s19j0「そんなことは知らん。p
  12758.         !o1b0s0j2|2:b5s20j0「・・・・・・。p
  12759.         !o1b0s0j2ネビュラソード:b4s19j0「さ、どないする？
  12760.         ネビュラ=2
  12761.     }&else{
  12762.         !o1b0s0j2ネビュラソード:b4s19j0「ネビュラでおまっ。;何の用や？
  12763.     }
  12764.     &se 2
  12765.     %selectlist={回復,旅の記録,地上へ戻る,やめる}
  12766.     &switch(%select){
  12767.     &default:
  12768.         !;
  12769.         &break
  12770.     &case 0:
  12771.         !;ほれ。
  12772.         &freash 29346
  12773.         &complete
  12774.         !p;
  12775.         &break
  12776.     &case 1:
  12777.         !;ほい。ps0
  12778.         %partynamedef(0)=滝の洞窟Ｂ４
  12779.         &save 100,49,61,-%up
  12780.         !o1b0s0j2ネビュラソード:b4s19j0「
  12781.         &break
  12782.     &case 2:
  12783.         !;よっしゃ。行くで。pcs0
  12784.         I=0
  12785.         &jsr ４人
  12786.         &partyset 0
  12787.         &on
  12788.         &se 4
  12789.         &wait 5
  12790.         &partyset A,B,C,D
  12791.         &on
  12792.         &wait 5
  12793.         &partyset 0
  12794.         &on
  12795.         &partyset A,B,C,D
  12796.         &contrast 0
  12797.         &goto2 滝＿中,@13,%up
  12798.     }
  12799.     !ほな、がんばりや。qcs0b5
  12800. #@40    &jsr 敵１
  12801.     &patternpal PAL\CG_D.PAL
  12802.     &switch(%rnd(4)){
  12803.     &case 0:
  12804.         &battle $0,35,メイジタタミン,%rnd(2)+2
  12805.         &break
  12806.     &case 1:
  12807.         &battle $0,35,火山掘り,%rnd(5)+2
  12808.         &break
  12809.     &case 2:
  12810.         &battle $0,35,ピンキーゾンビ,%rnd(3)+2
  12811.         &break
  12812.     &case 3:
  12813.         &battle $0,35,紅連の精霊,%rnd(2)+2
  12814.         &break
  12815.     }
  12816.     &jsr 戦闘後処理
  12817.  
  12818.  
  12819. //-------------------------------------------------------------------
  12820. [滝ダＢ５]
  12821. //-------------------------------------------------------------------
  12822.     &map MAP\TAKI_DB5.MAP
  12823.     %partypoint={@2,%down}
  12824.     &blackcircle 1
  12825.  
  12826.     &if(宝46==0){
  12827.         %mandef(1)={$1,1,$CA,%down,-1}    //宝箱（閉）
  12828.     }&else{
  12829.         %mandef(1)={$1,1,$CB,%down,-1}    //宝箱（開）
  12830.     }
  12831.     &if(宝47==0){
  12832.         %mandef(2)={$1,1,$CA,%down,-1}    //宝箱（閉）
  12833.     }&else{
  12834.         %mandef(2)={$1,1,$CB,%down,-1}    //宝箱（開）
  12835.     }
  12836.     &if(宝48==0){
  12837.         %mandef(3)={$1,1,$CA,%down,-1}    //宝箱（閉）
  12838.     }&else{
  12839.         %mandef(3)={$1,1,$CB,%down,-1}    //宝箱（開）
  12840.     }
  12841.     &monsprint 84,100,Ｂ０５
  12842.     &on
  12843.     &wait 15
  12844.     &monsprint 84,100,Ｂ１５
  12845.     &wait 10
  12846.     &monsprint 84,100,Ｂ００
  12847.  
  12848. #1    &if(宝46==0){
  12849.         宝=リゲルの鉾
  12850.         宝敵=スピア
  12851.         敵数=1
  12852.         &jsr 敵宝箱
  12853.         &if(宝箱フラグ==1){
  12854.             宝46=1
  12855.         }
  12856.     }&else{
  12857.         &jsr 空
  12858.     }
  12859. #2    &if(宝47==0){
  12860.         宝=アルビレオの杖
  12861.         宝敵=メイス
  12862.         敵数=1
  12863.         &jsr 敵宝箱
  12864.         &if(宝箱フラグ==1){
  12865.             宝47=1
  12866.         }
  12867.     }&else{
  12868.         &jsr 空
  12869.     }
  12870. #3    &if(宝48==0){
  12871.         宝=アンタレスナイフ
  12872.         宝敵=ダガー
  12873.         敵数=1
  12874.         &jsr 敵宝箱
  12875.         &if(宝箱フラグ==1){
  12876.             宝48=1
  12877.         }
  12878.     }&else{
  12879.         &jsr 空
  12880.     }
  12881.  
  12882. #@1    &if(%direc<0){
  12883.         &se 25
  12884.         &goto2 滝ダＢ４,@4,%down
  12885.     }
  12886. #@3    &if(%direc<0){
  12887.         &se 25
  12888.         &goto2 滝ダＢ４,@2,%down
  12889.     }
  12890. #@5    &if(%direc<0){
  12891.         &se 25
  12892.         &goto2 滝ダＢ４,@6,%down
  12893.     }
  12894. #@7    &if(%direc<0){
  12895.         &se 26
  12896.         &goto2 滝ダＢ６,@2,%down
  12897.     }
  12898. #@40    &jsr 敵１
  12899.     &patternpal PAL\CG_D.PAL
  12900.     &switch(%rnd(4)){
  12901.     &case 0:
  12902.         &battle $0,35,マグマライオン,%rnd(2)+2
  12903.         &break
  12904.     &case 1:
  12905.         &battle $0,35,ホットスライム,%rnd(3)+2
  12906.         &break
  12907.     &case 2:
  12908.         &battle $0,35,ダイヤゴーレム,%rnd(2)+2
  12909.         &break
  12910.     &case 3:
  12911.         &battle $0,35,妖しいランプ,%rnd(3)+2
  12912.         &break
  12913.     }
  12914.     &jsr 戦闘後処理
  12915. #@41    &jsr 敵１
  12916.     &switch(%rnd(4)){
  12917.     &case 0:
  12918.         &patternpal PAL\CG_C.PAL
  12919.         &battle $0,35,イカ大王,%rnd(3)+2
  12920.         &break
  12921.     &case 1:
  12922.         &patternpal PAL\CG_D.PAL
  12923.         &battle $0,35,ダイヤゴーレム,%rnd(2)+2
  12924.         &break
  12925.     &case 2:
  12926.         &patternpal PAL\CG_D.PAL
  12927.         &battle $0,35,ホットスライム,%rnd(3)+2
  12928.         &break
  12929.     &case 3:
  12930.         &patternpal PAL\CG_C.PAL
  12931.         &battle $0,35,イカ大王,%rnd(2)+2
  12932.         &break
  12933.     }
  12934.     &jsr 戦闘後処理
  12935.  
  12936.  
  12937. //-------------------------------------------------------------------
  12938. [滝ダＢ６]
  12939. //-------------------------------------------------------------------
  12940.     &map MAP\TAKI_DB6.MAP
  12941.     %partypoint={@2,%down}
  12942.     &blackcircle 1
  12943.  
  12944.     %mandef(1)={$2,1,$C5,%down,-1}    //立て札
  12945.     %mandef(2)={$2,1,$C5,%down,-1}    //立て札
  12946.     &monsprint 84,100,Ｂ０６
  12947.     &on
  12948.     &wait 15
  12949.     &monsprint 84,100,Ｂ１６
  12950.     &wait 10
  12951.     &monsprint 84,100,Ｂ００
  12952.  
  12953. #1    !o1s0『常に未来を見つめるべし』qc
  12954. #2    !o1s0『決して過去を振り返るべからず』qc
  12955.  
  12956. #@1    &if(%direc<0){
  12957.         &se 25
  12958.         &goto2 滝ダＢ５,@8,%down
  12959.     }
  12960. #@3    &if(%direc<0){
  12961.         &se 26
  12962.         &goto2 滝ダＢ７,@0,%down
  12963.     }
  12964. #@5    &if(%direc!=-8){
  12965.         &jsr ４人
  12966.         &partyset 0
  12967.         &on
  12968.         &se 4
  12969.         &wait 5
  12970.         &partyset A,B,C,D
  12971.         &on
  12972.         &wait 5
  12973.         &partyset 0
  12974.         &on
  12975.         &partyset A,B,C,D
  12976.         &move @0,%down
  12977.     }
  12978. @40    &jsr 敵１
  12979.     &patternpal PAL\CG_D.PAL
  12980.     &switch(%rnd(4)){
  12981.     &case 0:
  12982.         &battle $0,35,マグマライオン,%rnd(3)+2
  12983.         &break
  12984.     &case 1:
  12985.         &battle $0,35,ホットスライム,%rnd(4)+2
  12986.         &break
  12987.     &case 2:
  12988.         &battle $0,35,ダイヤゴーレム,%rnd(3)+2
  12989.         &break
  12990.     &case 3:
  12991.         &battle $0,35,妖しいランプ,%rnd(4)+2
  12992.         &break
  12993.     }
  12994.     &jsr 戦闘後処理
  12995.  
  12996.  
  12997. //-------------------------------------------------------------------
  12998. [滝ダＢ７]
  12999. //-------------------------------------------------------------------
  13000.     &map MAP\TAKI_DB7.MAP
  13001.     %partypoint={@0,%down}
  13002.     &blackcircle 1
  13003.  
  13004.     %mandef(1)={$9,1,$00,%down,-1}    //ドラゴン（透明）
  13005.     %mandef(2)={$9,1,$00,%down,-1}    //制御装置（透明）
  13006.     %mandef(3)={$7,6,$80,%down,-1}    //赤珠
  13007.     %mandef(4)={$7,6,$80,%down,-1}    //赤珠
  13008.     %mandef(5)={$7,6,$80,%down,-1}    //赤珠
  13009.     %mandef(6)={$7,6,$80,%down,-1}    //赤珠
  13010.     &if(宝49==0){
  13011.         %mandef(7)={$1,1,$CA,%down,-1}    //宝箱（閉）
  13012.     }&else{
  13013.         %mandef(7)={$1,1,$CB,%down,-1}    //宝箱（開）
  13014.     }
  13015.     %manpoint(2)={18,30}
  13016.     &monsprint 84,100,Ｂ０７
  13017.     &on
  13018.     &wait 15
  13019.     &monsprint 84,100,Ｂ１７
  13020.     &wait 10
  13021.     &monsprint 84,100,Ｂ００
  13022.  
  13023. #1    !o1b0s0j2レッドドラゴン:b7s14j0「グゥ～～！ゴォ～～！;
  13024.     &exec BIN\wave 1
  13025.     !グゥ～～！ゴォ～～！qcs0
  13026. #2    !o1s0何かの制御装置のようだ。:使い方が分からない。qc
  13027. #3
  13028. #4
  13029. #5
  13030. #6
  13031. #7    &if(宝49==0){
  13032.         宝=金のガントレット
  13033.         &jsr 宝箱大
  13034.         &if(宝箱フラグ==1){
  13035.             宝49=1
  13036.         }
  13037.     }&else{
  13038.         &jsr 空
  13039.     }
  13040.  
  13041. #@1    &if(%direc<0){
  13042.         &se 25
  13043.         &goto2 滝ダＢ６,@4,%down
  13044.     }
  13045. #@2    &if(%direc<0){
  13046.         &if(Ｄ>0){
  13047.             &&
  13048.         }&else{
  13049.             &partyspeed 1
  13050.             &exec BIN\wave 1
  13051.             !o1b0s0j2？？？:b7s14j0「グゥ～～！ゴォ～～！;グゥ～～！ゴォ～～！p
  13052.             !o1b0s0j2|2:b5s20j0「何かいるぞ。pc
  13053.             &partymove 8,8,8,8,8,8,8,8,8,8,8,8,8,8
  13054.             !o1b0s0j2レッドドラゴン:b7s14j0「・・・我が眠りを邪魔するのは誰だ。pc
  13055.             %mandef(1)={$9,6,$82,%down,-1}    //ドラゴン(目）
  13056.             &on
  13057.             &wait 50
  13058.             %mandef(1)={$9,6,$83,%down,-1}    //ドラゴン（起）
  13059.             &on
  13060.             !o1b0s0j2レッドドラゴン:b7s14j0「ガハハハハ、人間か。人間に会うのはあいつ以来か。p;
  13061.             !お前達、ここに何の用だ。この先に進むのなら、我を倒さねばならぬ。p;
  13062.             !我と闘うのか？
  13063.             &if(%inkeyn==1){
  13064.                 !;それがよかろう。さあ帰るがよい。pcs0
  13065.                 %mandef(1)={$9,6,$82,%down,-1}    //ドラゴン(目）
  13066.                 &on
  13067.                 &wait 20
  13068.                 %mandef(1)={$9,1,$00,%down,-1}    //ドラゴン（透明）
  13069.                 &on
  13070.                 &partyspeed 2
  13071.                 &partymove 2,2,2,2,2,2,2,2
  13072.                 Ｄ=1
  13073.                 &&
  13074.             }
  13075.             !;よろしい。相手になろう。pcs0
  13076.             &battle $1000,35,レッドドラゴン,1
  13077.             &jsr 戦闘後処理
  13078.             !o1b0s0j2レッドドラゴン:b7s14j0「我の負けだ。p;何故ここに居るのかも
  13079.             !忘れたこの老いぼれには、もう、どうでも良いことだ。通るがよい。p;
  13080.             !我は疲れた。p;そうだった・・・。友の夢を見ていたのだ・・・。p;我は眠る・・・。pcs0
  13081.             %mandef(1)={$9,6,$82,%down,-1}    //ドラゴン(目）
  13082.             &on
  13083.             &wait 20
  13084.             %mandef(1)={$9,1,$00,%down,-1}    //ドラゴン（透明）
  13085.             &on
  13086.             &partyspeed 2
  13087.             Ｄ=2
  13088.         }
  13089.     }
  13090. #@3    &if(%direc<0){
  13091.         &if(Ｄ==2){
  13092.             &&
  13093.         }&else{
  13094.             %mandef(1)={$9,6,$82,%down,-1}    //ドラゴン(目）
  13095.             &on
  13096.             &wait 50
  13097.             %mandef(1)={$9,6,$83,%down,-1}    //ドラゴン（起）
  13098.             &on
  13099.             !o1b0s0j2レッドドラゴン:b7s14j0「我と闘うのか？
  13100.             &if(%inkeyn==1){
  13101.                 !;それがよかろう。さあ帰るがよい。pcs0
  13102.                 %mandef(1)={$9,6,$82,%down,-1}    //ドラゴン(目）
  13103.                 &on
  13104.                 &wait 20
  13105.                 %mandef(1)={$9,1,$00,%down,-1}    //ドラゴン（透明）
  13106.                 &on
  13107.                 &partymove 2,2,2,2,2,2,2
  13108.                 &&
  13109.             }
  13110.             !;よろしい。相手になろう。pcs0
  13111.             &battle $1000,35,レッドドラゴン,1
  13112.             &if(%exitcode==1){
  13113.                 &jmp ＧＯ
  13114.             }
  13115.             !o1b0s0j2レッドドラゴン:b7s14j0「我の負けだ。p;何故ここに居るのかも
  13116.             !忘れたこの老いぼれには、もう、どうでも良いことだ。通るがよい。p;
  13117.             !我は疲れた。p;そうだった・・・。友の夢を見ていたのだ・・・。p;我は眠る・・・。pcs0
  13118.             %mandef(1)={$9,6,$82,%down,-1}    //ドラゴン(目）
  13119.             &on
  13120.             &wait 20
  13121.             %mandef(1)={$9,1,$00,%down,-1}    //ドラゴン（透明）
  13122.             &on
  13123.             Ｄ=2
  13124.         }
  13125.     }
  13126.  
  13127.  
  13128. //-------------------------------------------------------------------
  13129. [ＯＰ２]
  13130. //-------------------------------------------------------------------
  13131.     &mapsp SPP\SIRO_D.SPP
  13132.     &mappal PAL\ZUKAN.PAL
  13133.     &map MAP\SUISYOU.MAP
  13134.     %partypoint={0,0,%down}
  13135.     &bgm 45
  13136.  
  13137.     %mandef(1)={$F,1,$C1,%down,-1}    //黒ベタ
  13138.     %mandef(2)={$F,1,$C1,%down,-1}    //黒ベタ
  13139.     %mandef(3)={$F,1,$C1,%down,-1}    //黒ベタ
  13140.     %mandef(4)={$F,1,$00,%down,-1}    //透明
  13141.     &on
  13142.  
  13143.     &wait 100
  13144.     !o0s0w・w・w・wここは、wどこなのだろう・・・pc
  13145.     %mandef(4)={$F,1,$C1,%down,-1}    //黒ベタ
  13146.     %mandef(3)={$F,1,$00,%down,-1}    //透明
  13147.     &on
  13148.     &wait 50
  13149.     !o1w・・・ボクはどこにいるのだろう・・・pc
  13150.     %mandef(3)={$F,1,$C1,%down,-1}    //黒ベタ
  13151.     %mandef(2)={$F,1,$00,%down,-1}    //透明
  13152.     &on
  13153.     &wait 50
  13154.     !o0w・・・何か大事なことを・・・pc
  13155.     %mandef(2)={$F,1,$C1,%down,-1}    //黒ベタ
  13156.     %mandef(1)={$F,1,$00,%down,-1}    //透明
  13157.     &on
  13158.     &wait 50
  13159.     !o1w・・・忘れてしまった気がする・・・pc
  13160.     %mandef(1)={$F,1,$C1,%down,-1}    //黒ベタ
  13161.     %mandef(4)={$F,1,$00,%down,-1}    //透明
  13162.     &on
  13163.     &wait 50
  13164.     !o1w・・・誰かがボクを呼んでいる・・・pc
  13165.     &jsr 闇
  13166.     &goto ＯＰ３
  13167.  
  13168.  
  13169. //-------------------------------------------------------------------
  13170. [ＯＰ３]
  13171. //-------------------------------------------------------------------
  13172.     &mapsp SPP\KENKYU_I.SPP
  13173.     &mappal PAL\KENKYU_I.PAL
  13174.     &map MAP\KENKYU.MAP
  13175.     %partypoint={52,53,%down}
  13176.     &bgm 12
  13177.  
  13178.     %mandef(1)={$B,0,$AE,%down,-1}    //？
  13179.     %mandef(5)={$E,6,$40,%down,0}    //ホロ
  13180.     %mandef(6)={$C,0,$60,%down,1}    //クロ
  13181.     %mandef(7)={$C,0,$E0,%right,0}    //ジオット（作業）
  13182.     %mandef(8)={$C,0,$A8,%down,-1}    //タマ（寝）
  13183.     %manpoint(1)={100,100}
  13184.     %manpoint(5)={100,100}
  13185.     %manpoint(6)={100,100}
  13186.     %manpoint(8)={50,53}
  13187.     &on
  13188.  
  13189.     &partymove 4,6,4,6,4,6,4,6,4,6,4,6,4,6,4,6
  13190.     &freash 65490
  13191.     &partymove 4,6,4,6,4,6,4,6
  13192.     &freash 65490
  13193.     %mandef(8)={$C,0,$A4,%down,-1}    //タマ（座）
  13194.     &on
  13195.     &partymove 4,6,4,6
  13196.     %mandef(7)={$C,0,$80,%right,0}    //ジオット
  13197.     &on
  13198.     &partymove 4,6
  13199.     %mandef(8)={$C,0,$A5,%down,-1}    //タマ（座）
  13200.     %manpoint(1)={50,51-34}
  13201.     &on
  13202.     &pcm 22
  13203.     !o1b0s0j2？？？:b6s20j0「よし、完成じゃ。pc
  13204.     %manpoint(1)={100,100}
  13205.     &on
  13206.     &partymove 4,6
  13207.     %mandef(8)={$C,0,$A4,%down,-1}    //タマ（座）
  13208.     %manpoint(1)={50,51-34}
  13209.     &on
  13210.     &pcm 22
  13211.     !o1b0s0j2？？？:b5s20j0「できたのか！pc
  13212.     &manmove 7,-2
  13213.     %manpoint(6)={45,56-34}
  13214.     &se 18
  13215.     &on
  13216.     &wait 40
  13217.     %manpoint(1)={100,100}
  13218.     &on
  13219.     &manmove 6,6,6,6,6,6,6,6,8,8,8,8,-4
  13220.     %mandef(6)={$C,0,$60,%down,0}    //クロ
  13221.     &on
  13222.     &manmove 7,-6
  13223.     %mandef(8)={$C,0,$A7,%down,-1}    //タマ（座）
  13224.     %manpoint(1)={50,51-34}
  13225.     &on
  13226.     &pcm 22
  13227.     !o1b0s0j2？？？:b5s20j0「博士！名前は？pc
  13228.     %mandef(8)={$C,0,$A5,%down,-1}    //タマ（座）
  13229.     &on
  13230.     !o1b0s0j2？？？:b6s20j0「おお、忘れとった。p;そうじゃな。wタマでどうじゃ。pc
  13231.     %manpoint(1)={100,100}
  13232.     %manpoint(5)={45,56-34}
  13233.     &se 18
  13234.     &on
  13235.     &wait 50
  13236.     &manmove 5,-6
  13237.     %mandef(8)={$C,0,$A4,%down,-1}    //タマ（座）
  13238.     %manpoint(1)={50,51-34}
  13239.     &on
  13240.     &pcm 22
  13241.     !o1b0s0j2？？？:b5s20j0「タマか。ジオットらしいな。pc
  13242.     %mandef(5)={$E,6,$40,%down,1}    //ホロ
  13243.     %manpoint(1)={100,100}
  13244.     &on
  13245.     &manmove 5,6,6,6,6,6,6,6,8,8,-4
  13246.     %mandef(5)={$E,6,$40,%down,0}    //ホロ
  13247.     %mandef(8)={$C,0,$A7,%down,-1}    //タマ（座）
  13248.     &on
  13249.     &manmove 6,8,8,8,4,4,-2
  13250.     %mandef(8)={$C,0,$A6,%down,-1}    //タマ（座）
  13251.     %manpoint(1)={50,51-34}
  13252.     &on
  13253.     &pcm 22
  13254.     !o1b0s0j2？？？:b5s20j0「今日からお前はタマだ。;オレはクロ。よろしくな。pc
  13255.     &manmove 7,-8
  13256.     %manpoint(1)={100,100}
  13257.     &on
  13258.     &partymove 4,6
  13259.     %mandef(8)={$C,0,$A5,%down,-1}    //タマ（座）
  13260.     %manpoint(1)={50,51-34}
  13261.     &on
  13262.     &pcm 22
  13263.     !o1b0s0j2ジオット:b6s20j0「そうじゃな、クロとタマは兄弟になるのかの。p
  13264.     %mandef(8)={$C,0,$A6,%down,-1}    //タマ（座）
  13265.     &on
  13266.     !o1b0s0j2|2:b5s20j0「そうか、兄弟か。p
  13267.     %mandef(8)={$C,0,$A7,%down,-1}    //タマ（座）
  13268.     &on
  13269.     !o1b0s0j2？？？:b5s20j0「フン。pc
  13270.     %mandef(8)={$C,0,$A4,%down,-1}    //タマ（座）
  13271.     %manpoint(1)={100,100}
  13272.     &on
  13273.     &manmove 7,-6
  13274.     &manmove 5,-2
  13275.     %mandef(8)={$C,0,$A7,%down,-1}    //タマ（座）
  13276.     %manpoint(1)={50,51-34}
  13277.     &on
  13278.     &pcm 22
  13279.     !o1b0s0j2？？？:b5s20j0「オレ様は天文学と考古学の権威、ホロ様だ。よく覚えておけ。pc
  13280.     %manpoint(1)={100,100}
  13281.     &on
  13282.     &manmove 6,6,6,2
  13283.     !o1b0s0j2|2:b5s20j0「なにを偉そうに。pc
  13284.     &manmove 5,-8
  13285.     %manpoint(1)={50,51-34}
  13286.     &on
  13287.     &pcm 22
  13288.     !o1b0s0j2ホロ:b5s20j0「フン。;お前もタマもオレ様が見つけたんだぞ。pc
  13289.     %manpoint(1)={100,100}
  13290.     &on
  13291.     &manmove 6,8,4,4,-2
  13292.     %mandef(8)={$C,0,$A6,%down,-1}    //タマ（座）
  13293.     %manpoint(1)={50,51-34}
  13294.     &on
  13295.     &pcm 22
  13296.     !o1b0s0j2|2:b5s20j0「修理してくれたのは博士だろっ。pc
  13297.     %mandef(8)={$C,0,$A4,%down,-1}    //タマ（座）
  13298.     %manpoint(1)={100,100}
  13299.     &on
  13300.     &manmove 5,2,2
  13301.     !o1b0s0j2ホロ:b5s20j0「フン。pc
  13302.     &partymove 4,6,4,6
  13303.     &manmove 7,-8,-6,-2,-6
  13304.     %mandef(8)={$C,0,$A5,%down,-1}    //タマ（座）
  13305.     %manpoint(1)={50,51-34}
  13306.     &on
  13307.     &pcm 22
  13308.     !o1b0s0j2ジオット:b6s20j0「タマ、わしの名前はジオットじゃ。今日からよろしくな。pcb5
  13309.     %mandef(8)={$C,0,$A4,%down,0}    //タマ（座）
  13310.     %manpoint(1)={100,100}
  13311.     &on
  13312.     &partymove 4,6,4,6,4,6
  13313.     &jsr 闇
  13314.     &bgm -1
  13315.     &goto ＯＰ４
  13316.  
  13317.  
  13318. //-------------------------------------------------------------------
  13319. [ＯＰ４]
  13320. //-------------------------------------------------------------------
  13321.     &map MAP\OPENING.MAP
  13322.     %partypoint={0,0,%down}
  13323.     &on
  13324.  
  13325.     !o0b6s0　こうして、平和でゆっくりとした:　時間が流れていったある日・・・。pcb5
  13326.     &jsr 闇
  13327.     &goto 研究所＿中
  13328.  
  13329.  
  13330. //-------------------------------------------------------------------
  13331. [Ｏ＆Ｃ]
  13332. //-------------------------------------------------------------------
  13333.     &map MAP\OPENING.MAP
  13334.     %partypoint={0,0,%down}
  13335.  
  13336.     %mandef(3)={$E,1,$E0,%down,-1}    //オールト
  13337.     %mandef(4)={$C,2,$C0,%down,-1}    //カイパー
  13338.     &on
  13339.  
  13340.     &wait 100
  13341.     %mandef(3)={$E,1,$E8,%down,-1}    //オールト
  13342.     %mandef(4)={$C,2,$C4,%down,-1}    //カイパー
  13343.     &on
  13344.     !o1b0s0j2オールト:b5s20j0「これで、あなたへの罰も終わりです。p
  13345.     !o1b0s0j2カイパー:b5s22j0「・・・・・・。p
  13346.     !o1b0s0j2オールト:b5s20j0「さあ、魔法を解きましょう。p;
  13347.     %mandef(4)={$C,2,$C0,%down,-1}    //カイパー
  13348.     &on
  13349.     !★＃￠∽×∴＃＠〇◇￡！
  13350.     &freash 65490
  13351.     &se 3
  13352.     &wait 70
  13353.     %mandef(4)={$C,0,$E0,%down,-1}    //カイパー（頭ネコ）
  13354.     &freash 63521
  13355.     &se 31
  13356.     &on
  13357.     &wait 70
  13358.     %mandef(4)={$C,6,$A0,%down,-1}    //白猫（立ち）
  13359.     &freash 63521
  13360.     &se 31
  13361.     &on
  13362.     &wait 70
  13363.     %mandef(4)={$C,6,$A4,%down,-1}    //白猫（立ち）
  13364.     &on
  13365.     !p
  13366.     !o1b0s0j2カイパー:b5s21j0「・・・オールト様、お願いがあるのですがw・w・w・。pcs0
  13367.     &jsr 闇
  13368.     &goto Ｓ０
  13369.  
  13370.  
  13371. //-------------------------------------------------------------------
  13372. [エピローグ]
  13373. //-------------------------------------------------------------------
  13374.     &mapsp SPP\KANSOK_I.SPP
  13375.     &mappal PAL\KENKYU_I.PAL
  13376.     &map MAP\KANSOK.MAP
  13377.     %partypoint={53,44,%down}
  13378.     &bgm 48
  13379.  
  13380.     %mandef(1)={$C,0,$40,%left,0}    //タマ
  13381.     %mandef(2)={$C,0,$60,%down,0}    //クロ
  13382.     %manpoint(1)={55,44}
  13383.     &on
  13384.  
  13385.     &partymove 6,4,6,4,6,4,6,4,6,4,6,4,6,4
  13386.     &manmove 2,-6,-6
  13387.     !o1b0s0j2|2:b5s20j0「この体のデザインは、博士の趣味らしいな。p;
  13388.     !お前、気にいってるか？
  13389.     &if(%inkeyn==0){
  13390.         !;へえ、お前もか。pc
  13391.     }&else{
  13392.         !;そうか。オレは気に入ってるぜ。pc
  13393.     }
  13394.     &manmove 2,8,8,6,6,6
  13395.     &manmove 1,8,8,6,6,6,-4
  13396.     &manmove 2,6,6,2,2,-4
  13397.     &manmove 1,2,2,-4
  13398.     !o1b0s0j2|2:b5s20j0「ホロが言うにはな。星を観ることは過去を観ることなんだとさ。p;
  13399.     !今、観てる星も、今、存在してないかも知れないんだ。p;解るか？
  13400.     &if(%inkeyn==0){
  13401.         !;へえ、頭いいんだな、お前。pc
  13402.     }&else{
  13403.         !;オレも解らん。pc
  13404.     }
  13405.     &partymove 6,4,6,4,6,4,6,4
  13406.     &manmove 2,-6,-6
  13407.     !o1b0s0j2|2:b5s20j0「・・・お前、昔の記憶はあるか？
  13408.     &label
  13409.     &se 2
  13410.     %selectlist={いいえ,いいえ}
  13411.     &if(%select<0){
  13412.         &jmp @b
  13413.     }
  13414.     &manmove 2,-2
  13415.     !;昔のオレ達は、何の為に作られたんだろうな・・・。pc
  13416.     &partymove 6,4,6,4,6,4,6,4
  13417.     &manmove 2,-6,-6
  13418.     !o1b0s0j2|2:b5s20j0「そんなことより、お前、無口だな。pcs0
  13419.     &manmove 1,-2
  13420.     &manmove 2,-2
  13421.     &partymove 6,4
  13422.     &goto Ｓ５
  13423.  
  13424.  
  13425. //-------------------------------------------------------------------
  13426. [タイトル]
  13427. //-------------------------------------------------------------------
  13428.     &patternpal PAL\CG_E.PAL
  13429.     &mapsp SPP\FIELD.SPP
  13430.     &mappal PAL\FIELD.PAL
  13431.     &map MAP\FIELD.MAP
  13432.     &partyspeed 2
  13433.     &partyset 0
  13434.     %partypoint={137,102,%up}
  13435.  
  13436.     &pcm 17
  13437.     %mandef(1)={$C,2,$00,%down,1}
  13438.     %mandef(2)={$C,2,$20,%down,1}
  13439.     %manpoint(1)={95,60}
  13440.     %manpoint(2)={60,15}
  13441.     &exec BIN\reiqo H
  13442.     &if(%exitcode/256>=6 and %exitcode/256<18){
  13443.         &exec BIN\reiqo LR D5 1 9
  13444.         &monsprint 0,0,タイトル１
  13445.     }&else{
  13446.         &exec BIN\reiqo LR D9 1 9
  13447.         &monsprint 0,0,タイトル２
  13448.     }
  13449.     &bgm 8
  13450.     &on
  13451.  
  13452.     &label
  13453.     &if(%strig==0){
  13454.         &partymove 6,2
  13455.         &jmp @b
  13456.     }
  13457.     &bgm 7
  13458.     &label
  13459.     &se 1
  13460.     &load
  13461.     &goto ＯＰ０
  13462.  
  13463. //デバッグ
  13464.     !o0b2s0オープニングを見ますか？b5
  13465.     &if(%inkeyn==0){
  13466.         !c
  13467.         &goto ＯＰ０
  13468.     }
  13469.     !o0b2s0エンディングを見ますか？b5
  13470.     &if(%inkeyn==0){
  13471.         !c
  13472.         宝49=1
  13473.         &bgm -1
  13474.         &goto Ｏ＆Ｃ
  13475.     }
  13476.     !c
  13477.     %gold=2000
  13478.     Ａ=300
  13479.     Ｂ=10
  13480.     ネビュラ=1
  13481.     図鑑完成=1
  13482.     &partyitemset ネビュラソード,オールトの指輪,王様の鍵,滝の鍵,青い鍵玉,赤い鍵玉,青い鍵玉,青い鍵玉,赤い鍵玉,シルバーリーフ,ゴールドリーフ,白い鍵玉,黒い鍵玉,聖水のビン,おもちゃのラッパ,モンスター図鑑,綺麗なオルゴール,夢のかけら,緑宝石,割引カード
  13483.     &partyset 1,4,5,6
  13484.     &jsr デバッグ
  13485.  
  13486.  
  13487. //-------------------------------------------------------------------
  13488. [サブルーチン]
  13489. //-------------------------------------------------------------------
  13490. &label ＧＯ
  13491.     &bgm -1
  13492.     !c
  13493.     !o0b10s0j1・・・全滅してしまった・・・:j0pcb5
  13494.     &goto ＧＡＭＥＯＶＥＲ
  13495.  
  13496. &label 小
  13497.     &partyspeed 1
  13498.     &if(蛙==1){
  13499.         %partydef(1)={$E,0,$20,-1,-1,-1,-1,-1,-1,-1}
  13500.         %partydef(2)={$A,0,$20,-1,-1,-1,-1,-1,-1,-1}
  13501.         %partydef(4)={$A,0,$20,-1,-1,-1,-1,-1,-1,-1}
  13502.         %partydef(5)={$A,0,$20,-1,-1,-1,-1,-1,-1,-1}
  13503.         %partydef(6)={$A,0,$20,-1,-1,-1,-1,-1,-1,-1}
  13504.     }&else{
  13505.         %partydef(1)={$C,2,$00,-1,-1,-1,-1,-1,-1,-1}
  13506.         %partydef(2)={$C,2,$20,-1,-1,-1,-1,-1,-1,-1}
  13507.         %partydef(4)={$B,2,$60,-1,-1,-1,-1,-1,-1,-1}
  13508.         %partydef(5)={$B,2,$80,-1,-1,-1,-1,-1,-1,-1}
  13509.         %partydef(6)={$B,2,$A0,-1,-1,-1,-1,-1,-1,-1}
  13510.     }
  13511.     &rts
  13512.  
  13513. &label 大
  13514.     &partyspeed 2
  13515.     &if(蛙==1){
  13516.         %partydef(1)={$E,7,$80,-1,-1,-1,-1,-1,-1,-1}
  13517.         %partydef(2)={$E,7,$80,-1,-1,-1,-1,-1,-1,-1}
  13518.         %partydef(4)={$A,7,$80,-1,-1,-1,-1,-1,-1,-1}
  13519.         %partydef(5)={$A,7,$80,-1,-1,-1,-1,-1,-1,-1}
  13520.         %partydef(6)={$A,7,$80,-1,-1,-1,-1,-1,-1,-1}
  13521.     }&else{
  13522.         %partydef(1)={$C,0,$40,-1,-1,-1,-1,-1,-1,-1}
  13523.         %partydef(2)={$C,0,$60,-1,-1,-1,-1,-1,-1,-1}
  13524.         %partydef(4)={$B,1,$40,-1,-1,-1,-1,-1,-1,-1}
  13525.         %partydef(5)={$B,1,$60,-1,-1,-1,-1,-1,-1,-1}
  13526.         %partydef(6)={$B,1,$80,-1,-1,-1,-1,-1,-1,-1}
  13527.     }
  13528.     &rts
  13529.  
  13530. &label 修理
  13531.     &partymove 4,4,4,4,4,4,4,4
  13532.     %mandef(2)={$C,0,$E0,%up,0}    //ジオット（作業）
  13533.     %manpoint(2)={15,49}
  13534.     &on
  13535.     &partymove 4,4,4,4,4,4,4,4,4,4
  13536.     %mandef(2)={$C,0,$E0,%left,0}    //ジオット（作業）
  13537.     %manpoint(2)={17,47}
  13538.     &on
  13539.     &partymove 4,4,4,4,4,4,4,4,4,4
  13540.     %mandef(2)={$C,0,$E0,%up,0}    //ジオット（作業）
  13541.     %manpoint(2)={15,49}
  13542.     &on
  13543.     &partymove 4,4,4,4,4,4,4,4,4
  13544.     %mandef(2)={$C,0,$E0,%right,0}    //ジオット（作業）
  13545.     %manpoint(2)={13,47}
  13546.     &on
  13547.     &partymove 4,4,4,4,4,4
  13548.     &rts
  13549.  
  13550. &label 闇
  13551.     &contrast 14
  13552.     &wait 10
  13553.     &contrast 12
  13554.     &wait 10
  13555.     &contrast 10
  13556.     &wait 10
  13557.     &contrast 8
  13558.     &wait 10
  13559.     &contrast 6
  13560.     &wait 10
  13561.     &contrast 4
  13562.     &wait 10
  13563.     &contrast 2
  13564.     &wait 10
  13565.     &contrast 0
  13566.     &rts
  13567.  
  13568. &label 順番
  13569.     &if(%partynumber<3){
  13570.         &if(%partyexist(1)==1){
  13571.             A=1
  13572.             B=2
  13573.             C=0
  13574.         }&else{
  13575.             A=2
  13576.             B=1
  13577.             C=0
  13578.         }
  13579.     }&else{
  13580.         &jsr ４人
  13581.     }
  13582.     &rts
  13583.  
  13584. &label ４人
  13585.     &switch(%partyexist(1)){
  13586.     &case 1:
  13587.         A=1
  13588.         &break
  13589.     &case 2:
  13590.         B=1
  13591.         &break
  13592.     &case 3:
  13593.         C=1
  13594.         &break
  13595.     &case 4:
  13596.         D=1
  13597.         &break
  13598.     }
  13599.     &switch(%partyexist(4)){
  13600.     &case 1:
  13601.         A=4
  13602.         &break
  13603.     &case 2:
  13604.         B=4
  13605.         &break
  13606.     &case 3:
  13607.         C=4
  13608.         &break
  13609.     &case 4:
  13610.         D=4
  13611.         &break
  13612.     }
  13613.     &switch(%partyexist(5)){
  13614.     &case 1:
  13615.         A=5
  13616.         &break
  13617.     &case 2:
  13618.         B=5
  13619.         &break
  13620.     &case 3:
  13621.         C=5
  13622.         &break
  13623.     &case 4:
  13624.         D=5
  13625.         &break
  13626.     }
  13627.     &switch(%partyexist(6)){
  13628.     &case 1:
  13629.         A=6
  13630.         &break
  13631.     &case 2:
  13632.         B=6
  13633.         &break
  13634.     &case 3:
  13635.         C=6
  13636.         &break
  13637.     &case 4:
  13638.         D=6
  13639.         &break
  13640.     }
  13641.     &rts
  13642.  
  13643. &label ワープ
  13644.     &if(%partynumber<3){
  13645.         &if(%partyexist(1)==1){
  13646.             A=1
  13647.             B=2
  13648.         }&else{
  13649.             A=2
  13650.             B=1
  13651.         }
  13652.         &partyset 0
  13653.         &on
  13654.         &se 4
  13655.         &wait 5
  13656.         &partyset A,B
  13657.         &on
  13658.         &wait 5
  13659.         &partyset 0
  13660.         &on
  13661.         &partyset A,B
  13662.     }&else{
  13663.         &jsr ４人
  13664.         &partyset 0
  13665.         &on
  13666.         &se 4
  13667.         &wait 5
  13668.         &partyset A,B,C,D
  13669.         &on
  13670.         &wait 5
  13671.         &partyset 0
  13672.         &on
  13673.         &partyset A,B,C,D
  13674.     }
  13675.     &rts
  13676.  
  13677. &label 宿
  13678.     !c
  13679.     &bgm -1
  13680.     &contrast 0
  13681.     &if(洗濯==1){
  13682.         洗濯=2
  13683.     }
  13684.     &switch(Ａ){
  13685.     &default:
  13686.         &break
  13687.     &case 120
  13688.         Ａ=122
  13689.         &break
  13690.     &case 125:
  13691.         Ａ=128
  13692.         &break
  13693.     &case 140:
  13694.         Ａ=150
  13695.         &break
  13696.     }
  13697.     &wait 50
  13698.     &bgm 36
  13699.     &wait 400
  13700.     &complete
  13701.     &contrast 15
  13702.     &wait 50
  13703.     &rts
  13704.  
  13705. &label 宝石チェック
  13706.     &if(月+星+夢+勇気+虹+孔雀+緑==0){
  13707.         !o1s20「おっと、在庫が一つもないんだ。悪いな。また来てくれよ。qcs0
  13708.         &&
  13709.     }
  13710.     &rts
  13711.  
  13712. &label 宝石買う
  13713.     &jsr 宝石チェック
  13714.     !o1s20「どの宝石かな？
  13715.     &label
  13716.     !g
  13717.     &se 2
  13718.     &if(%haveitem(割引カード)==1){
  13719.         %selectlist={月のかけら　　　56000,星のかけら　　　56000,夢のかけら　　　56000,勇気のかけら　　56000,虹のクリスタル　72000,くじゃく石　　　52000,緑宝石　　　　　36000}
  13720.     }&else{
  13721.         %selectlist={月のかけら　　　70000,星のかけら　　　70000,夢のかけら　　　70000,勇気のかけら　　70000,虹のクリスタル　90000,くじゃく石　　　65000,緑宝石　　　　　45000}
  13722.     }
  13723.     &switch(%select){
  13724.     &default:
  13725.         &break
  13726.     &case 0:
  13727.         宝石=月のかけら
  13728.         &if(%haveitem(割引カード)==1){
  13729.             値段=5600
  13730.         }&else{
  13731.             値段=7000
  13732.         }
  13733.         &if(月>0){
  13734.             &jsr 宝石買う２
  13735.             月--
  13736.             &jsr 宝石チェック
  13737.             &jmp @b
  13738.         }
  13739.         !o1s20「悪いけどその宝石は売り切れなんだ。pc
  13740.         &break
  13741.     &case 1:
  13742.         宝石=星のかけら
  13743.         &if(%haveitem(割引カード)==1){
  13744.             値段=5600
  13745.         }&else{
  13746.             値段=7000
  13747.         }
  13748.         &if(星>0){
  13749.             &jsr 宝石買う２
  13750.             星--
  13751.             &jsr 宝石チェック
  13752.             &jmp @b
  13753.         }
  13754.         !o1s20「悪いけどその宝石は売り切れなんだ。pc
  13755.         &break
  13756.     &case 2:
  13757.         宝石=夢のかけら
  13758.         &if(%haveitem(割引カード)==1){
  13759.             値段=5600
  13760.         }&else{
  13761.             値段=7000
  13762.         }
  13763.         &if(夢>0){
  13764.             &jsr 宝石買う２
  13765.             夢--
  13766.             &jsr 宝石チェック
  13767.             &jmp @b
  13768.         }
  13769.         !o1s20「悪いけどその宝石は売り切れなんだ。pc
  13770.         &break
  13771.     &case 3:
  13772.         宝石=勇気のかけら
  13773.         &if(%haveitem(割引カード)==1){
  13774.             値段=5600
  13775.         }&else{
  13776.             値段=7000
  13777.         }
  13778.         &if(勇気>0){
  13779.             &jsr 宝石買う２
  13780.             勇気--
  13781.             &jsr 宝石チェック
  13782.             &jmp @b
  13783.         }
  13784.         !o1s20「悪いけどその宝石は売り切れなんだ。pc
  13785.         &break
  13786.     &case 4:
  13787.         宝石=虹のクリスタル
  13788.         &if(%haveitem(割引カード)==1){
  13789.             値段=7200
  13790.         }&else{
  13791.             値段=9000
  13792.         }
  13793.         &if(虹>0){
  13794.             &jsr 宝石買う２
  13795.             虹--
  13796.             &jsr 宝石チェック
  13797.             &jmp @b
  13798.         }
  13799.         !o1s20「悪いけどその宝石は売り切れなんだ。pc
  13800.         &break
  13801.     &case 5:
  13802.         宝石=くじゃく石
  13803.         &if(%haveitem(割引カード)==1){
  13804.             値段=5200
  13805.         }&else{
  13806.             値段=6500
  13807.         }
  13808.         &if(孔雀>0){
  13809.             &jsr 宝石買う２
  13810.             孔雀--
  13811.             &jsr 宝石チェック
  13812.             &jmp @b
  13813.         }
  13814.         !o1s20「悪いけどその宝石は売り切れなんだ。pc
  13815.         &break
  13816.     &case 6:
  13817.         宝石=緑宝石
  13818.         &if(%haveitem(割引カード)==1){
  13819.             値段=3600
  13820.         }&else{
  13821.             値段=4500
  13822.         }
  13823.         &if(緑>0){
  13824.             &jsr 宝石買う２
  13825.             緑--
  13826.             &jsr 宝石チェック
  13827.             &jmp @b
  13828.         }
  13829.         !o1s20「悪いけどその宝石は売り切れなんだ。pc
  13830.         &break
  13831.     }
  13832.     !o1s20「他にご用は？
  13833.     &rts
  13834.  
  13835. &label 宝石買う２
  13836.     &if(%rasthaveitem==0){
  13837.         &pcm 18
  13838.         !o1b2s0j1これ以上持てません！j0pb5
  13839.         &rts
  13840.     }
  13841.     &if(%gold<値段){
  13842.         &pcm 18
  13843.         !o1b2s0j1お金が足りません！j0pb5
  13844.         &rts
  13845.     }
  13846.     &partyitemin 宝石
  13847.     %gold=%gold-値段
  13848.     !o1gs0j2i(宝石)j0を買いました。p
  13849.     !o1s20「他に欲しい宝石は？p
  13850.     &rts
  13851.  
  13852. &label 宝石売る
  13853.     !o1s20「どの宝石を売ってくれるんだい？
  13854.     &se 2
  13855.     %selectlist={月のかけら,星のかけら,夢のかけら,勇気のかけら,虹のクリスタル,くじゃく石,緑宝石}
  13856.     &switch(%select){
  13857.     &default:
  13858.         &break
  13859.     &case 0:
  13860.         宝石=月のかけら
  13861.         値段=5250
  13862.         &jsr 宝石売る２
  13863.         月++
  13864.         &break
  13865.     &case 1:
  13866.         宝石=星のかけら
  13867.         値段=5250
  13868.         &jsr 宝石売る２
  13869.         星++
  13870.         &break
  13871.     &case 2:
  13872.         宝石=夢のかけら
  13873.         値段=5250
  13874.         &jsr 宝石売る２
  13875.         夢++
  13876.         &break
  13877.     &case 3:
  13878.         宝石=勇気のかけら
  13879.         値段=5250
  13880.         &jsr 宝石売る２
  13881.         勇気++
  13882.         &break
  13883.     &case 4:
  13884.         宝石=虹のクリスタル
  13885.         値段=6750
  13886.         &jsr 宝石売る２
  13887.         虹++
  13888.         &break
  13889.     &case 5:
  13890.         宝石=くじゃく石
  13891.         値段=4875
  13892.         &jsr 宝石売る２
  13893.         孔雀++
  13894.         &break
  13895.     &case 6:
  13896.         宝石=緑宝石
  13897.         値段=3375
  13898.         &jsr 宝石売る２
  13899.         緑++
  13900.         &break
  13901.     }
  13902.     !o1s20「他にご用は？
  13903.     &rts
  13904.  
  13905. &label 宝石売る２
  13906.     !o1s20「どれ、見せてくれ。p
  13907.     &if(%haveitem(宝石)==1){
  13908.         !o1s20「う～む。wこれなら、f(値段)Ｇで買い取るよ。売ってくれるかい？g
  13909.         &if(%inkeyn==0){
  13910.             %gold=%gold+値段
  13911.             &if(%gold>25600){
  13912.                 %gold=25600
  13913.                 &pcm 18
  13914.                 !:s0b2j1これ以上お金を持てません！j0pb5
  13915.             }
  13916.             &partyitemout 宝石
  13917.             !o1gs0j2i(宝石)j0を売りました。p
  13918.         }&else{
  13919.             !o1s20「気が変わったら、また来てくれよ。qc
  13920.             &&
  13921.         }
  13922.     }&else{
  13923.         !o1s20「持ってないじゃないか。ひやかしはやめてくれよな。qc
  13924.         &&
  13925.     }
  13926.     &rts
  13927.  
  13928. &label 店
  13929.     %selectlist={買う,売る,やめる}
  13930.     &label
  13931.     &se 2
  13932.     &switch(%select){
  13933.     &default:
  13934.         &break
  13935.     &case 0:
  13936.         &jsr 買う
  13937.         &jmp @b
  13938.     &case 1:
  13939.         &if(%gold==25600){
  13940.             &pcm 18
  13941.             !o1s0b2j1これ以上お金を持てません！j0pb5
  13942.             !o1s(I)「他にご用は？p;c
  13943.             &jmp @b
  13944.         }
  13945.         &jsr 売る
  13946.         &jmp @b
  13947.     }
  13948.     &rts
  13949.  
  13950. &label 買う
  13951.     &ldef IB
  13952.     &if(I==20 or I==23){
  13953.         !o1s(I)「どれにする？p
  13954.     }&else{
  13955.         !o1s(I)「どれにしましょう？p
  13956.     }
  13957.     &label
  13958.     &se 2
  13959.     &if(%nowblock==村＿中 and Ａ>265){
  13960.         IB=%shopsel(75)
  13961.     }&else{
  13962.         &if(%nowblock==町＿中 and %haveitem(割引カード)==1){
  13963.             IB=%shopsel(80)
  13964.         }&else{
  13965.             IB=%shopsel(100)
  13966.         }
  13967.     }
  13968.     &switch(IB){
  13969.     &default:
  13970.         !o1s0j2i(IB)j0を買いました。p
  13971.         !o1s(I)「他には？p
  13972.         &jmp @b
  13973.     &case 0:
  13974.         &break
  13975.     &case -1:
  13976.         &pcm 18
  13977.         !o1b2s0j1お金が足りません！j0pb5
  13978.         &jmp @b
  13979.     &case -2:
  13980.         &pcm 18
  13981.         !o1b2s0j1これ以上持てません！j0pb5
  13982.         &break
  13983.     }
  13984.     !o1s(I)「他にご用は？pc
  13985.     &rts
  13986.  
  13987. &label 売る
  13988.     &ldef IS
  13989.     &if(I==20){
  13990.         !o1s(I)「どれだい？
  13991.     }&else{
  13992.         !o1s(I)「どれですか？
  13993.     }
  13994.     &label
  13995.     &se 2
  13996.     IS=%shopbuy(75)
  13997.     &switch(IS){
  13998.     &default:
  13999.         !o1s0j2i(IS)j0を売りました。p
  14000.         &if(%gold>25600){
  14001.             %gold=25600
  14002.             &pcm 18
  14003.             !:s0b2j1これ以上お金を持てません！j0pb5
  14004.             !o1s(I)「他にご用は？
  14005.             &rts
  14006.         }
  14007.         !o1s(I)「他には？
  14008.         &jmp @b
  14009.     &case 0:
  14010.         &break
  14011.     &case -1:
  14012.         &pcm 18
  14013.         !o1s0b2j1それは売ることができません！j0pb5
  14014.         !o1s(I)「他には？
  14015.         &jmp @b
  14016.     }
  14017.     !o1s(I)「他にご用は？pc
  14018.     &rts
  14019.  
  14020. &label 空
  14021.     !o1s0空っぽだ。qc
  14022.     &rts
  14023.  
  14024. &label 鍵宝箱
  14025.     &if(%haveitem(鍵)==1){
  14026.         &pcm 16
  14027.         !o1s0j2i(鍵)j0で開いた。p
  14028.         &jsr 宝箱大
  14029.     }&else{
  14030.         宝箱フラグ=0
  14031.         !o1s0鍵が掛かっていて開かない。qc
  14032.     }
  14033.     &rts
  14034.  
  14035. &label 敵宝箱
  14036.     宝箱フラグ=0
  14037.     %mandef(%manno)={$E,1,$CB,%down,-1}    //宝箱（開）
  14038.     &se 31
  14039.     &on
  14040.     &battle $0,35,宝敵,敵数
  14041.     &if(%exitcode==1){
  14042.         &jmp ＧＯ
  14043.     }
  14044.     &if(%exitcode==99){
  14045.         %mandef(%manno)={$E,1,$CA,%down,-1}    //宝箱（閉）
  14046.         &on
  14047.         &rts
  14048.     }
  14049.     !o1s0j2i(宝)j0を見つけた！p:
  14050.     &if(%rasthaveitem>0){
  14051.         宝箱フラグ=1
  14052.         &partyitemin 宝
  14053.         !j2i(宝)j0を手に入れた！qc
  14054.     }&else{
  14055.         &pcm 18
  14056.         !o1b2s0j1これ以上持てません！j0qcb5
  14057.         %mandef(%manno)={$E,1,$CA,%down,-1}    //宝箱（閉）
  14058.         &on
  14059.     }
  14060.     &rts
  14061.  
  14062. &label 宝箱大
  14063.     宝箱フラグ=0
  14064.     %mandef(%manno)={$E,1,$CB,%down,-1}    //宝箱（開）
  14065.     &se 31
  14066.     &on
  14067.     &if(宝==0){
  14068.         宝箱フラグ=1
  14069.         &jsr 空
  14070.         &rts
  14071.     }
  14072.     !o1s0j2i(宝)j0を見つけた！p:
  14073.     &if(%rasthaveitem>0){
  14074.         宝箱フラグ=1
  14075.         &partyitemin 宝
  14076.         !j2i(宝)j0を手に入れた！q
  14077.     }&else{
  14078.         &pcm 18
  14079.         !o1b2s0j1これ以上持てません！j0qcb5
  14080.         %mandef(%manno)={$E,1,$CA,%down,-1}    //宝箱（閉）
  14081.         &on
  14082.     }
  14083.     &rts
  14084.  
  14085. &label 宝箱小
  14086.     宝箱フラグ=0
  14087.     %mandef(%manno)={$D,1,$CF,%down,-1}    //小箱（開）
  14088.     &se 31
  14089.     &on
  14090.     !o1s0j2i(宝)j0を見つけた！p:
  14091.     &if(%rasthaveitem>0){
  14092.         宝箱フラグ=1
  14093.         &partyitemin 宝
  14094.         !j2i(宝)j0を手に入れた！qc
  14095.     }&else{
  14096.         &pcm 18
  14097.         !o1b2s0j1これ以上持てません！j0qcb5
  14098.         %mandef(%manno)={$D,1,$CE,%down,-1}    //小箱（閉）
  14099.         &on
  14100.     }
  14101.     &rts
  14102.  
  14103. &label 鍵戸
  14104.     &if(%haveitem(鍵)==1){
  14105.         &pcm 2
  14106.         &wait 10
  14107.         %manpoint(%manno)={100,100}
  14108.         &on
  14109.     }&else{
  14110.         !o1s0鍵が掛かっていて開かない。qc
  14111.     }
  14112.     &rts
  14113.  
  14114. &label ライト
  14115.     I=0
  14116.     %bcirclesize=35
  14117.     &on
  14118.     %bcirclesize=54
  14119.     &on
  14120.     %bcirclesize=73
  14121.     &on
  14122.     %bcirclesize=92
  14123.     &on
  14124.     %bcirclesize=111
  14125.     &on
  14126.     %bcirclesize=130
  14127.     &on
  14128.     &rts
  14129.  
  14130. &label 落ちる
  14131.     &partymove -6,-2,-4,-8,-6,-2
  14132.     &jsr 順番
  14133.     &if(I==-2){
  14134.         I=0
  14135.         &partymove -2
  14136.     }&else{
  14137.         &partymove %direc
  14138.     }
  14139.     &se 16
  14140.     &if(%partynumber<3){
  14141.         &partyset B
  14142.         &on
  14143.         &wait 5
  14144.         &partyset 0
  14145.         &contrast 0
  14146.         &on
  14147.         &partyset A,B
  14148.     }&else{
  14149.         &partyset B,C,D
  14150.         &on
  14151.         &wait 5
  14152.         &partyset C,D
  14153.         &on
  14154.         &wait 5
  14155.         &partyset D
  14156.         &on
  14157.         &wait 5
  14158.         &partyset 0
  14159.         &contrast 0
  14160.         &on
  14161.         &partyset A,B,C,D
  14162.     }
  14163.     &wait 5
  14164.     &rts
  14165.  
  14166. &label トラップ
  14167.     &pcm 21
  14168.     &wait 10
  14169.     &partymove -6,-8,-4,-2
  14170.     &se 16
  14171.     &rts
  14172.  
  14173. &label 石戸
  14174.     &if(像１*像２*像３*像４){
  14175.         %manpoint(3)={100,100}
  14176.         &wait 15
  14177.         &pcm 5
  14178.         &on
  14179.         &wait 15
  14180.         !p:壁の向こうで石の扉の動く音がした。
  14181.     }
  14182.     !qc
  14183.     &rts
  14184.  
  14185. &label 城会話
  14186.     &if(像１+像２+像３+像４+う+ひ+き+く==8){
  14187.         Ａ=55
  14188.         !qc
  14189.         &link 19
  14190.     }
  14191.     &rts
  14192.  
  14193. &label 不正解１
  14194.     &pcm 33
  14195.     !;不正解です。５００Ｇ頂きます。gp;
  14196.     %gold=%gold-500
  14197.     !gさあ、この問題はあと１回しか答えられませんよ。qcs0
  14198.     &rts
  14199.  
  14200. &label 不正解２
  14201.     &pcm 33
  14202.     !;不正解です。５００Ｇ頂きます。gp;
  14203.     %gold=%gold-500
  14204.     !gこの問題は、もう答えられません。次回は新しい問題になります。qcs0
  14205.     &rts
  14206.  
  14207. &label 聖水飲む
  14208.     !o1s0水を飲む？
  14209.     &if(%inkeyn==0){
  14210.         &freash 29346
  14211.         &complete
  14212.     }&else{
  14213.         &if(%nowblock==オアシス and %haveitem(聖水のビン)==1){
  14214.             !o1s0オアシスの水を汲む？
  14215.             &if(%inkeyn==0){
  14216.                 &if(%rasthaveitem<=0){
  14217.                     &pcm 18
  14218.                     !o1b2s0j1これ以上持てません！j0b5qc
  14219.                     &&
  14220.                 }
  14221.                 &if(%haveitem(オアシスの水)==1){
  14222.                     !:聖水のビンはもう一杯だ。qc
  14223.                 }&else{
  14224.                     &partyitemin オアシスの水
  14225.                     !:j2i(オアシスの水)j0を手に入れた！qc
  14226.                 }
  14227.             }
  14228.         }
  14229.     }
  14230.     &rts
  14231.  
  14232. &label 青IN
  14233.     &if(%nowblock==入口){
  14234.         %mandef(%manno+3)={$4,6,$87,%down,-1}    //鍵玉（青）
  14235.     }&else{
  14236.         %mandef(%manno-1)={$4,6,$87,%down,-1}    //鍵玉（青）
  14237.     }
  14238.     %mandef(%manno)={$4,6,$87,%down,-1}    //鍵玉（青）
  14239.     &pcm 9
  14240.     &on
  14241.     &partyitemout 青い鍵玉
  14242.     &rts
  14243.  
  14244. &label 青OUT
  14245.     &if(%nowblock==入口){
  14246.         %mandef(%manno+3)={$4,1,$00,%down,-1}    //鍵玉（青なし）
  14247.     }&else{
  14248.         %mandef(%manno-1)={$4,1,$00,%down,-1}    //鍵玉（青なし）
  14249.     }
  14250.     %mandef(%manno)={$4,1,$00,%down,-1}    //鍵玉（青なし）
  14251.     &pcm 10
  14252.     &on
  14253.     &partyitemin 青い鍵玉
  14254.     &rts
  14255.  
  14256. &label 赤IN
  14257.     &switch(%nowblock){
  14258.     &case 入口:
  14259.         &break
  14260.     &case 通路:
  14261.         %mandef(%manno+2)={$1,6,$87,%down,-1}    //鍵玉（赤）
  14262.         &break
  14263.     &default:
  14264.         %mandef(%manno-1)={$1,6,$87,%down,-1}    //鍵玉（赤）
  14265.         &break
  14266.     }
  14267.     %mandef(%manno)={$1,6,$87,%down,-1}    //鍵玉（赤）
  14268.     &pcm 9
  14269.     &on
  14270.     &partyitemout 赤い鍵玉
  14271.     &rts
  14272.  
  14273. &label 赤OUT
  14274.     &switch(%nowblock){
  14275.     &case 入口:
  14276.         &break
  14277.     &case 通路:
  14278.         %mandef(%manno+2)={$1,1,$00,%down,-1}    //鍵玉（赤なし）
  14279.         &break
  14280.     &default:
  14281.         %mandef(%manno-1)={$1,1,$00,%down,-1}    //鍵玉（赤なし）
  14282.         &break
  14283.     }
  14284.     %mandef(%manno)={$1,1,$00,%down,-1}    //鍵玉（赤なし）
  14285.     &pcm 10
  14286.     &on
  14287.     &partyitemin 赤い鍵玉
  14288.     &rts
  14289.  
  14290. &label 扉開
  14291.     &wait 8
  14292.     &pcm 8
  14293.     %mandef(I)={$4,7,$E1,%down,-1}
  14294.     &on
  14295.     &wait 5
  14296.     %mandef(I)={$4,7,$E2,%down,-1}
  14297.     &on
  14298.     &wait 5
  14299.     %mandef(I)={$4,7,$E3,%down,-1}
  14300.     &on
  14301.     &wait 5
  14302.     %manpoint(I)={200,200}
  14303.     &on
  14304.     &rts
  14305.  
  14306. &label 扉閉
  14307.     &wait 8
  14308.     &pcm 8
  14309.     %manpoint(I)={X,Y}
  14310.     &on
  14311.     &wait 5
  14312.     %mandef(I)={$4,7,$E2,%down,-1}
  14313.     &on
  14314.     &wait 5
  14315.     %mandef(I)={$4,7,$E1,%down,-1}
  14316.     &on
  14317.     &wait 5
  14318.     %mandef(I)={$4,7,$E0,%down,-1}
  14319.     &on
  14320.     &rts
  14321.  
  14322. &label 光
  14323.     &monsprint 104,0,光_B0
  14324.     &monsprint 104,0,光_B1
  14325.     &monsprint 104,0,光_B2
  14326.     &monsprint 104,0,光_B3
  14327.     &rts
  14328.  
  14329. &label 光２
  14330.     &monsprint 124,0,光_C0
  14331.     &monsprint 124,0,光_C1
  14332.     &monsprint 124,0,光_C2
  14333.     &monsprint 124,0,光_C3
  14334.     &monsprint 124,0,光_C4
  14335.     &monsprint 124,0,光_C5
  14336.     &rts
  14337.  
  14338. &label 図消
  14339.     !c
  14340.     &pcm 15
  14341.     &monsprint 39,26,消し
  14342.     &rts
  14343.  
  14344. &label 発見済
  14345.     &switch(ページ){
  14346.     &case 1:
  14347.         ページ２=モ01
  14348.         &break
  14349.     &case 2:
  14350.         ページ２=モ02
  14351.         &break
  14352.     &case 3:
  14353.         ページ２=モ03
  14354.         &break
  14355.     &case 4:
  14356.         ページ２=モ04
  14357.         &break
  14358.     &case 5:
  14359.         ページ２=モ05
  14360.         &break
  14361.     &case 6:
  14362.         ページ２=モ06
  14363.         &break
  14364.     &case 7:
  14365.         ページ２=モ07
  14366.         &break
  14367.     &case 8:
  14368.         ページ２=モ08
  14369.         &break
  14370.     &case 9:
  14371.         ページ２=モ09
  14372.         &break
  14373.     &case 10:
  14374.         ページ２=モ10
  14375.         &break
  14376.     &case 11:
  14377.         ページ２=モ11
  14378.         &break
  14379.     &case 12:
  14380.         ページ２=モ12
  14381.         &break
  14382.     &case 13:
  14383.         ページ２=モ13
  14384.         &break
  14385.     &case 14:
  14386.         ページ２=モ14
  14387.         &break
  14388.     &case 15:
  14389.         ページ２=モ15
  14390.         &break
  14391.     &case 16:
  14392.         ページ２=モ16
  14393.         &break
  14394.     &case 17:
  14395.         ページ２=モ17
  14396.         &break
  14397.     &case 18:
  14398.         ページ２=モ18
  14399.         &break
  14400.     &case 19:
  14401.         ページ２=モ19
  14402.         &break
  14403.     &case 20:
  14404.         ページ２=モ20
  14405.         &break
  14406.     &case 21:
  14407.         ページ２=モ21
  14408.         &break
  14409.     &case 22:
  14410.         ページ２=モ22
  14411.         &break
  14412.     &case 23:
  14413.         ページ２=モ23
  14414.         &break
  14415.     &case 24:
  14416.         ページ２=モ24
  14417.         &break
  14418.     &case 25:
  14419.         ページ２=モ25
  14420.         &break
  14421.     &case 26:
  14422.         ページ２=モ26
  14423.         &break
  14424.     &case 27:
  14425.         ページ２=モ27
  14426.         &break
  14427.     &case 28:
  14428.         ページ２=モ28
  14429.         &break
  14430.     &case 29:
  14431.         ページ２=モ29
  14432.         &break
  14433.     &case 30:
  14434.         ページ２=モ30
  14435.         &break
  14436.     }
  14437.     &if(ページ２!=0){
  14438.         ページ２=ページ
  14439.     }
  14440.     &rts
  14441.  
  14442. &label ワープ２
  14443.     &if(%nowblock==灯台＿中){
  14444.         Y=%py-153
  14445.     }&else{
  14446.         Y=%py
  14447.     }
  14448.     &switch(%partyexist(1)){
  14449.     &case 1:
  14450.         %mandef(36)={$C,0,$40,%down,0}    //タマ
  14451.         A=1
  14452.         &break
  14453.     &case 2:
  14454.         %mandef(37)={$C,0,$40,%down,0}    //タマ
  14455.         B=1
  14456.         &break
  14457.     &case 3:
  14458.         %mandef(38)={$C,0,$40,%down,0}    //タマ
  14459.         C=1
  14460.         &break
  14461.     &case 4:
  14462.         %mandef(39)={$C,0,$40,%down,0}    //タマ
  14463.         D=1
  14464.     }
  14465.     &switch(%partyexist(4)){
  14466.     &case 1:
  14467.         %mandef(36)={$B,1,$40,%down,0}    //ラズ
  14468.         A=4
  14469.         &break
  14470.     &case 2:
  14471.         %mandef(37)={$B,1,$40,%down,0}    //ラズ
  14472.         B=4
  14473.         &break
  14474.     &case 3:
  14475.         %mandef(38)={$B,1,$40,%down,0}    //ラズ
  14476.         C=4
  14477.         &break
  14478.     &case 4:
  14479.         %mandef(39)={$B,1,$40,%down,0}    //ラズ
  14480.         D=4
  14481.     }
  14482.     &switch(%partyexist(5)){
  14483.     &case 1:
  14484.         %mandef(36)={$B,1,$60,%down,0}    //ストロ
  14485.         A=5
  14486.         &break
  14487.     &case 2:
  14488.         %mandef(37)={$B,1,$60,%down,0}    //ストロ
  14489.         B=5
  14490.         &break
  14491.     &case 3:
  14492.         %mandef(38)={$B,1,$60,%down,0}    //ストロ
  14493.         C=5
  14494.         &break
  14495.     &case 4:
  14496.         %mandef(39)={$B,1,$60,%down,0}    //ストロ
  14497.         D=5
  14498.     }
  14499.     &switch(%partyexist(6)){
  14500.     &case 1:
  14501.         %mandef(36)={$B,1,$80,%down,0}    //グーズ
  14502.         A=6
  14503.         &break
  14504.     &case 2:
  14505.         %mandef(37)={$B,1,$80,%down,0}    //グーズ
  14506.         B=6
  14507.         &break
  14508.     &case 3:
  14509.         %mandef(38)={$B,1,$80,%down,0}    //グーズ
  14510.         C=6
  14511.         &break
  14512.     &case 4:
  14513.         %mandef(39)={$B,1,$80,%down,0}    //グーズ
  14514.         D=6
  14515.     }
  14516.     &bgm -1
  14517.     &se 33
  14518.     %manpoint(36)={100,100}
  14519.     %manpoint(37)={100,100}
  14520.     %manpoint(38)={100,100}
  14521.     %manpoint(39)={100,100}
  14522.     &partyset 0
  14523.     &on
  14524.     &wait 5
  14525.     &partyset A,B,C,D
  14526.     &on
  14527.     &wait 5
  14528.     &partyset 0
  14529.     &on
  14530.     %manpoint(36)={%px,Y}
  14531.     %manpoint(37)={%px,Y}
  14532.     %manpoint(38)={%px,Y}
  14533.     %manpoint(39)={%px,Y}
  14534.     &on
  14535.     %manpoint(36)={%px,Y-2}
  14536.     %manpoint(37)={%px,Y}
  14537.     %manpoint(38)={%px,Y}
  14538.     %manpoint(39)={%px,Y}
  14539.     &on
  14540.     %manpoint(36)={%px,Y-11}
  14541.     %manpoint(37)={%px,Y-7}
  14542.     %manpoint(38)={%px,Y-3}
  14543.     %manpoint(39)={%px,Y-1}
  14544.     &on
  14545.     %manpoint(36)={%px,Y-20}
  14546.     %manpoint(37)={%px,Y-16}
  14547.     %manpoint(38)={%px,Y-12}
  14548.     %manpoint(39)={%px,Y-8}
  14549.     &on
  14550.     %manpoint(36)={%px,Y-29}
  14551.     %manpoint(37)={%px,Y-25}
  14552.     %manpoint(38)={%px,Y-21}
  14553.     %manpoint(39)={%px,Y-17}
  14554.     &on
  14555.     %manpoint(36)={%px,Y-38}
  14556.     %manpoint(37)={%px,Y-34}
  14557.     %manpoint(38)={%px,Y-30}
  14558.     %manpoint(39)={%px,Y-26}
  14559.     &on
  14560.     &contrast 0
  14561.     %manpoint(36)={100,100}
  14562.     %manpoint(37)={100,100}
  14563.     %manpoint(38)={100,100}
  14564.     %manpoint(39)={100,100}
  14565.     &on
  14566.     &partyset A,B,C,D
  14567.     X=333
  14568.     &rts
  14569.  
  14570. &label ワープ３
  14571.     &if(X==333){
  14572.         &switch(%nowblock){
  14573.         &case 灯台＿中:
  14574.             Y=165-153
  14575.             &break
  14576.         &case 観測所:
  14577.             Y=13
  14578.             &break
  14579.         &case 大木:
  14580.             Y=26
  14581.             &break
  14582.         &case 滝:
  14583.             Y=20
  14584.             &break
  14585.         &case 村:
  14586.             Y=19
  14587.             &break
  14588.         &case オアシス:
  14589.             Y=50
  14590.         }
  14591.         &switch(%partyexist(1)){
  14592.         &case 1:
  14593.             %mandef(36)={$C,0,$40,%down,0}    //タマ
  14594.             &break
  14595.         &case 2:
  14596.             %mandef(37)={$C,0,$40,%down,0}    //タマ
  14597.             &break
  14598.         &case 3:
  14599.             %mandef(38)={$C,0,$40,%down,0}    //タマ
  14600.             &break
  14601.         &case 4:
  14602.             %mandef(39)={$C,0,$40,%down,0}    //タマ
  14603.         }
  14604.         &switch(%partyexist(4)){
  14605.         &case 1:
  14606.             %mandef(36)={$B,1,$40,%down,0}    //ラズ
  14607.             &break
  14608.         &case 2:
  14609.             %mandef(37)={$B,1,$40,%down,0}    //ラズ
  14610.             &break
  14611.         &case 3:
  14612.             %mandef(38)={$B,1,$40,%down,0}    //ラズ
  14613.             &break
  14614.         &case 4:
  14615.             %mandef(39)={$B,1,$40,%down,0}    //ラズ
  14616.         }
  14617.         &switch(%partyexist(5)){
  14618.         &case 1:
  14619.             %mandef(36)={$B,1,$60,%down,0}    //ストロ
  14620.             &break
  14621.         &case 2:
  14622.             %mandef(37)={$B,1,$60,%down,0}    //ストロ
  14623.             &break
  14624.         &case 3:
  14625.             %mandef(38)={$B,1,$60,%down,0}    //ストロ
  14626.             &break
  14627.         &case 4:
  14628.             %mandef(39)={$B,1,$60,%down,0}    //ストロ
  14629.         }
  14630.         &switch(%partyexist(6)){
  14631.         &case 1:
  14632.             %mandef(36)={$B,1,$80,%down,0}    //グーズ
  14633.             &break
  14634.         &case 2:
  14635.             %mandef(37)={$B,1,$80,%down,0}    //グーズ
  14636.             &break
  14637.         &case 3:
  14638.             %mandef(38)={$B,1,$80,%down,0}    //グーズ
  14639.             &break
  14640.         &case 4:
  14641.             %mandef(39)={$B,1,$80,%down,0}    //グーズ
  14642.         }
  14643.         %manpoint(39)={100,100}
  14644.         %manpoint(38)={100,100}
  14645.         %manpoint(37)={100,100}
  14646.         %manpoint(36)={100,100}
  14647.         &partyset 0
  14648.     }
  14649.     &rts
  14650.  
  14651. &label ワープ４
  14652.     &if(X==333){
  14653.         X=0
  14654.         %manpoint(39)={%px,Y-36}
  14655.         %manpoint(38)={%px,Y-32}
  14656.         %manpoint(37)={%px,Y-28}
  14657.         %manpoint(36)={%px,Y-24}
  14658.         &on
  14659.         %manpoint(39)={%px,Y-28}
  14660.         %manpoint(38)={%px,Y-24}
  14661.         %manpoint(37)={%px,Y-20}
  14662.         %manpoint(36)={%px,Y-16}
  14663.         &on
  14664.         %manpoint(39)={%px,Y-20}
  14665.         %manpoint(38)={%px,Y-16}
  14666.         %manpoint(37)={%px,Y-12}
  14667.         %manpoint(36)={%px,Y-8}
  14668.         &on
  14669.         %manpoint(39)={%px,Y-12}
  14670.         %manpoint(38)={%px,Y-8}
  14671.         %manpoint(37)={%px,Y-4}
  14672.         %manpoint(36)={%px,Y}
  14673.         &on
  14674.         %manpoint(39)={%px,Y-4}
  14675.         %manpoint(38)={%px,Y}
  14676.         %manpoint(37)={%px,Y}
  14677.         %manpoint(36)={%px,Y}
  14678.         &on
  14679.         %manpoint(39)={%px,Y}
  14680.         %manpoint(38)={%px,Y}
  14681.         %manpoint(37)={%px,Y}
  14682.         %manpoint(36)={%px,Y}
  14683.         &on
  14684.         %manpoint(39)={100,100}
  14685.         %manpoint(38)={100,100}
  14686.         %manpoint(37)={100,100}
  14687.         %manpoint(36)={100,100}
  14688.         &partyset A,B,C,D
  14689.         &on
  14690.     }
  14691.     &rts
  14692.  
  14693. &label 水晶飛
  14694.     !o1s0どこを想い浮かべる？:
  14695.     &se 2
  14696.     %selectlist={古の灯台,王立天体観測所,オールトの家,崖の滝,ケレス村,砂漠のオアシス}
  14697.     &switch(%select){
  14698.     &case 0:
  14699.         !オールトの指輪が光り出す・・・。:水晶の中に灯台が見える・・・。pc
  14700.         &jsr ワープ２
  14701.         &goto2 灯台＿中,50,165,%down
  14702.     &case 1:
  14703.         !オールトの指輪が光り出す・・・。:水晶の中に観測所が見える・・・。pc
  14704.         &jsr ワープ２
  14705.         &goto2 観測所,@10,%down
  14706.     &case 2:
  14707.         !オールトの指輪が光り出す・・・。:水晶の中に白い大木が見える・・・。pc
  14708.         &jsr ワープ２
  14709.         &goto2 大木,@10,%down
  14710.     &case 3:
  14711.         !オールトの指輪が光り出す・・・。:水晶の中に滝が見える・・・。pc
  14712.         &jsr ワープ２
  14713.         &goto2 滝,@10,%down
  14714.     &case 4:
  14715.         !オールトの指輪が光り出す・・・。:水晶の中にケレスの村が見える・・・。pc
  14716.         &jsr ワープ２
  14717.         &goto2 村,@10,%down
  14718.     &case 5:
  14719.         !オールトの指輪が光り出す・・・。:水晶の中にオアシスが見える・・・。pc
  14720.         &jsr ワープ２
  14721.         &goto2 オアシス,@10,%down
  14722.     &default:
  14723.     }
  14724.     &rts
  14725.  
  14726. &label デバッグ
  14727.     !o0b2s0どこから？b5
  14728.     &se 2
  14729.     &label １Ｐ
  14730.     %selectlist={　　　　<１>,王立研究所,天体観測所,古の灯台,橋,ユニバニア城,パーセクの町}
  14731.     &switch(%select){
  14732.     &default:
  14733.         &se 2
  14734.         &jmp ３Ｐ
  14735.     &case 0:
  14736.         &wait 2
  14737.         &se 2
  14738.         &jmp ２Ｐ
  14739.     &case 1:
  14740.         !c
  14741.         &jsr 闇
  14742.         &goto 研究所
  14743.     &case 2:
  14744.         !c
  14745.         &jsr 闇
  14746.         &goto 観測所
  14747.     &case 3:
  14748.         !c
  14749.         &jsr 闇
  14750.         &goto 灯台
  14751.     &case 4:
  14752.         !c
  14753.         &jsr 闇
  14754.         &goto 橋
  14755.     &case 5:
  14756.         !c
  14757.         &jsr 闇
  14758.         &goto 城
  14759.     &case 6:
  14760.         !c
  14761.         &jsr 闇
  14762.         &goto2 町,@8,-%up
  14763.     }
  14764.     &label ２Ｐ
  14765.     %selectlist={　　　　<２>,洞窟１,オールトの大木,風車,滝,ケレス村,ジラーフの洞窟}
  14766.     &switch(%select){
  14767.     &default:
  14768.         &se 2
  14769.         &jmp １Ｐ
  14770.     &case 0:
  14771.         &wait 2
  14772.         &se 2
  14773.         &jmp ３Ｐ
  14774.     &case 1:
  14775.         !c
  14776.         I=0
  14777.         &jsr 闇
  14778.         &goto 洞窟１
  14779.     &case 2:
  14780.         !c
  14781.         &jsr 闇
  14782.         &goto 大木
  14783.     &case 3:
  14784.         !c
  14785.         &jsr 闇
  14786.         &goto 風車
  14787.     &case 4:
  14788.         !c
  14789.         &jsr 闇
  14790.         &goto 滝
  14791.     &case 5:
  14792.         !c
  14793.         &jsr 闇
  14794.         &goto 村
  14795.     &case 6:
  14796.         !c
  14797.         &jsr 闇
  14798.         &goto 洞窟３
  14799.     }
  14800.     &label ３Ｐ
  14801.     %selectlist={　　　　<３>,城ダンジョンB1,オアシス,遺跡入口,遺跡,転送室,滝ダンジョンB4}
  14802.     &switch(%select){
  14803.     &default:
  14804.         &se 2
  14805.         &jmp ２Ｐ
  14806.     &case 0:
  14807.         &wait 2
  14808.         &se 2
  14809.         &jmp １Ｐ
  14810.     &case 1:
  14811.         !c
  14812.         &jsr 闇
  14813.         &goto 城ダＢ１
  14814.     &case 2:
  14815.         !c
  14816.         &jsr 闇
  14817.         &goto オアシス
  14818.     &case 3:
  14819.         !c
  14820.         &jsr 闇
  14821.         &goto 入口
  14822.     &case 4:
  14823.         !c
  14824.         &jsr 闇
  14825.         青01=1    //入口右
  14826.         赤B1=1    //通路
  14827.         &goto 遺跡１Ｆ
  14828.     &case 5:
  14829.         !c
  14830.         &jsr 闇
  14831.         青01=1    //入口右
  14832.         赤B1=1    //通路
  14833.         青21=0    //遺跡２Ｆ
  14834.         青24=1    //遺跡２Ｆto３Ｆ
  14835.         赤21=1    //遺跡２Ｆto３Ｆ
  14836.         白31=1    //遺跡３Ｆto転送
  14837.         青31=1    //遺跡３Ｆto転送
  14838.         赤31=1    //遺跡３Ｆto転送
  14839.         黒31=1    //遺跡３Ｆto転送
  14840.         船=1
  14841.         &goto 転送
  14842.     &case 6:
  14843.         !c
  14844.         &jsr 闇
  14845.         &goto 滝ダＢ４
  14846.     }
  14847.  
  14848. &label 敵１
  14849.     &if(%direc>=0){&&}
  14850.     &if(%rnd(30)!=10){&&}
  14851.     &rts
  14852.  
  14853. &label 敵２
  14854.     &if(%direc>=0){&&}
  14855.     &if(%rnd(22)!=10){&&}
  14856.     &rts
  14857.  
  14858. &label 敵３
  14859.     &if(%direc>=0){&&}
  14860.     &if(%rnd(18)!=10){&&}
  14861.     &rts
  14862.  
  14863. &label 敵４
  14864.     &if(%direc>=0){&&}
  14865.     &if(%rnd(15)!=10){&&}
  14866.     &rts
  14867.  
  14868. &label 戦闘後処理
  14869.     &patternpal PAL\CG_E.PAL
  14870.     &if(%gold>25600){
  14871.         %gold=25600
  14872.     }
  14873.     &if(%exitcode==1){
  14874.         &jmp ＧＯ
  14875.     }
  14876.     &rts
  14877.  
  14878. &label 装備切り換え
  14879.     &if(Ｂ>10){
  14880.         %racemagicdef(1)={ポー,ヒュー,ヒュル,ポラ,ヒュラ,ヒュルラ}
  14881.         %racemagiclvldef(1)={1,9,12,15,20,24}
  14882.     }
  14883.     &if(Ａ>=290){
  14884.         %itemdef(石の剣)={2,0,0,28,1,-1}
  14885.         %itemdef(薪割り斧)={2,0,300,35,1,-1}
  14886.         %itemdef(大金づち)={2,0,420,40,1,-1}
  14887.         %itemdef(魔導士の杖)={2,ポー,1000,20,-1,1}
  14888.         %itemdef(銀葉の杖)={2,0,2400,39,-1,1}
  14889.         %itemdef(百雷の杖)={2,ピカラ,2800,33,-1,1}
  14890.         %itemdef(くだき丸)={2,0,4000,60,1,-1}
  14891.         %itemdef(獅子王の黒刀)={2,0,0,66,1,-1}
  14892.         %itemdef(ケレスの服)={3,0,200,12,-1,1}
  14893.         %itemdef(赤の法衣)={3,0,2000,29,-1,1}
  14894.         %itemdef(すすけたマント)={3,0,0,6,1,-1}
  14895.         %itemdef(ケレスのマント)={3,0,450,15,1,-1}
  14896.         %itemdef(そよ風のマント)={3,0,1600,28,1,-1}
  14897.         %itemdef(木の盾)={4,0,140,11,1,-1}
  14898.         %itemdef(魔導士の盾)={4,0,1200,12,-1,1}
  14899.         %itemdef(兵士の盾)={4,0,850,17,1,-1}
  14900.         %itemdef(魔かわしの盾)={4,0,1800,20,1,-1}
  14901.         %itemdef(鋼鉄の盾)={4,0,3000,25,1,-1}
  14902.         %itemdef(ブルーノシールド)={4,0,8800,34,1,-1}
  14903.         %itemdef(ケレスの帽子)={5,0,200,5,-1,1}
  14904.         %itemdef(とんがり帽子)={5,0,570,9,1,-1}
  14905.         %itemdef(最高級鉄鍋)={5,0,6800,30,1,-1}
  14906.     }
  14907.     &on
  14908.     &rts
  14909.  
  14910.  
  14911. //-------------------------------------------------------------------
  14912. //（ＥＯＦ）
  14913.